my @data = <FILE>;

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

print @data;