$a = "aaabbbaaa";
$b = "s/b/c/g";
eval '$a =~ ' . $b;