Help for this page
my $op = 's/a/A/g'; my $sub = eval "sub { $op }"; ... $_ = "abbracadabra"; $sub->(); print "$_\n";
AbbrAcAdAbrA