REGEX PERL

Boa noite, sou novo no PERL, estava a precisar de ajuda na construção da seguinte REGEX PERL, dada a expressão $res = "100\$*10%" efectuar o calculo atraves de expressoes regulares (resultado = 10), tentei isso mas dá erro... $res="100\$*10%"; $res =~ s/(\d)\$(\d)\$/$1\+$2*10%/; printf("\n\nRes com printf: %.2f\n",eval($res));