local $_ = "aaabbbaaa";
$b = "s/b/c/g";
eval $b;