$s="abc";
$m="(a)(.)";
$r=qw/$2$1/;

print "eval: \$s =~ s/$m/$r/";
eval "\$s=~s/$m/$r/";

print "\nresult: $s\n";