#!/usr/bin/perl -w
#
#
# 020312

my $infile = $ARGV[0];
my $outfile = "${infile}.\$\$\$";

open ( IN, "< $infile" ) || die "cannot open $infile\n" ;
open ( OUT, ">$outfile")  || die "cannot open $outfile\n" ;
binmode IN;
binmode OUT;
while (<IN>) {
   s/\x0d\x0a/\x0a/;
   print OUT;
}
close;