This will strip all the lines preceeding the blank one:

my @data = <FILE>;

while( $data[0] =~ /\S/ ) {
  shift @data;
}

print @data;
[download]

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/;
}
[download]

which will leave you with FILE at the first line after the blank one.