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