my @data = <FILE>;

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

print @data;

##</code><code>##

while( $line = <FILE> ) {
  last unless $line =~ /\S/;
}