while(<>) {
 if( $_ =~ /^\s$/ ) {
  last;
 }
}
while(<>) {
 print
}