Select Code to Download

#....
my $var = Package::sub;
#....
...
#....
my $var; { local $_; $var = Package::sub; }
#....

$_ = 'foo';
while (<>)
 for (grep {/$_/} @foo) {
...
 print 'outer' . $_;
}
print $_;