open FH, $some_file or die "Can't open $some_file, Perl says $!\n";
LOOP:
while (<FH>) {
    next until /$some_cond/;
    while (<FH>) {
        last LOOP if /^\s$/;
        print;
    }
}