Select Code to Download

$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;