Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
AbbrAcAdAbrA
```