$infile = $ARGV[0]; $outfile = $ARGV[1]; open (INFILEHANDLE, "<$infile") or die ("Cannot open file."); open (OUTFILEHANDLE, ">$outfile") or die ("Cannot open file."); binmode OUTFILEHANDLE; while (defined($line = <INFILEHANDLE>)) { $line =~ s/\r//g; print OUTFILEHANDLE $line; } close INFILEHANDLE; close OUTFILEHANDLE;