Select Code to Download

sub on (&$$) {
        my($f1,$f2,$l)=@_;
...
$a="abba is foo";
on { /foo/ } action { tr/ab/ba/; },\$a;
print "$a\n";