s/\015\012/\012/g
s/\015/\013/\013/g
s/\r\n/\n/g

##</code><code>##

#! perl -w
# Convert a dos format file to Unix removing ^M Char from file

my $FileOpen = $ARGV[0];
my $FileTemp = "$FileOpen.Temp9687";
open(OPEN,"$FileOpen") || die "\nCan not open file $FileOpen $!\n";
open(CONV,">$FileTemp") || die "\nCan not write to file $FileTemp $!\n";

foreach(<OPEN>){
    $_ =~ s/\r\n/n/g;
#   $_ =~ s/\015\012/\012/g;
#   $_ =~ s/\015\013/\013/g;
#   $_ =~ s/\015//g;
    print CONV $_;

 }
close(OPEN);
close(CONV);