$a = 'aa';
$b = 's/a/b/';#or $b = qr(s/a/b/)
$a =~ $b;
print $a