print $out_fh $line  ;  #No need to chomp - we print the "\n"

##</code><code>##

 $line =~ s/\s+$//;
$line = "$line\n";