#!/usr/bin/perl -w

my $x = 0;
while(<DATA>) {
    $x = 1 if /^\s+$/;
    next if $x != 1;
    print;
}

__DATA__
bad stuff
more bad stuff
someother bad stuff

some good stuff
more good stuff

more good stuff