Select Code to Download

use strict;
sub test {
    if( $_[0] =~ /regex/ ) {
...

test( "regex", $bool );
print "regex: $bool\n";

use strict;
{
    my $foo;
...
        return $foo;
    }
}