while(<$fh>) {
   chop;
   chop              if /\015$/;
   print UT $_;
   print UT "\012";
}
close $fh;