This will strip all the lines preceeding the blank one:
my @data = <FILE>;
while( $data[0] =~ /\S/ ) {
shift @data;
}
print @data;
Update:
Just spotted
quidity's post after fixing the error (d'oh), and the second point he raises is a good one; the following code would be better if you're reading from a file (the above code was designed to work whether you were working with data in a file or array, as you did not specify which you were dealing with):
while( $line = <FILE> ) {
last unless $line =~ /\S/;
}
which will leave you with
FILE at the first line after the blank one.