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