$a='aa';
$b='s/a/b/';
eval '$a =~ '.$b;