Help for this page
$a = 'aa'; $a =~ s/a/b/; print $a
$a = 'aa'; $b = 's/a/b/';#or $b = qr(s/a/b/) $a =~ $b; print $a
($a) = map {eval $b} $a;