Select Code to Download

$ perl -E'
   sub f { say $1; "b"=~/(b)/; say $1; }
...
a
b
a

$ perl -E'
   sub f { say $_[0]; "b"=~/(b)/; say $_[0]; }
...
'
a
b

/.../;
mysub("$1", "$2");
...
   shift;
   shift;
}

my ($x, $y) =~ /.../;
mysub($x, $y);
...
   shift;
   shift;
}

/.../;
mysub($1, $2);
...
   $x;
   $y;
}