Select Code to Download

for ( $sFunction ) {
    /test1/ || /test2/ and do {
...
        # will be executed too
    };
}

my $do_test1 = sub { 
    #... 
...
        # will be executed too
    };
}