It depends.

AFAIS you are not using next at the end of each block, so there is no explicit fall-through

so one way is

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

another way is to use a subroutine

my $do_test1 = sub { 
    #... 
};

for ( $sFunction ) {
    /test1/ && $do_test1->();

    /test2/ && do {
        $do_test1->();
        # will be executed too
    };
}
[download]

On a side note: why don't you use if or even if-elsif-else constructs?