open (FILE, "<", "test") or die "can't open" ;

sub SKPLN($) {($_[0]!=0) and <FILE> and SKPLN($_[0]-1)}

while (<FILE>) {
    SKPLN(1), next if /blah/ ;

    SKPLN(2), next if second condition ;
.....
}
[download]