while (my $line = <$fh_in>)   {       
     print $fh_out $line if $line !~ /^\s*$/;
 }