while (<$fh>){
 next unless /\S/;
 #
}