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

# File: unftp.pl
# Description: Restores a binary file corrupted by ASCII FTP
#              from Unix to Windoze
# Syntax: unftp.pl infilename > outfilename

use strict;
my $chr;
my $prv;
my $cr = chr(13);
my $lf = chr(10);
my $crlf = chr(13) . chr(10);

my $iscr = 0;

my $fname = shift @ARGV || die "Expecting file name";

open (INP, "<$fname") || die $!;

while (read(INP, $chr, 65536) ) {

        $chr = $cr . $chr if $iscr;

        $iscr = 0;
        if (substr($chr, length($chr)-1, 1) eq $cr) {
                $chr = substr($chr, 0, length($chr)-1);
                $iscr = 1;
        }

        $chr =~ s/$crlf/$lf/g;
        print $chr;
}

in.txt
-------
line1^M
line2^M
line3^M

/tmp>>col < in.txt > out.txt
/tmp>>od -c in.txt          
0000000   l   i   n   e   1  \r  \n   l   i   n   e   2  \r  \n   l   i
0000020   n   e   3  \r  \n
0000025
/tmp>>od -c out.txt
0000000   l   i   n   e   1  \n   l   i   n   e   2  \n   l   i   n   e
0000020   3  \n
0000022

perl -pi -e "s:^V^M::g" <filenames>

cat <filename1> | tr -d "^V^M" > <newfile>

sed -e "s/^V^M//" <filename> > <output filename>

On HP-UX try dos2ux or dos2unix on Solaris.

perl -p -i -e 's/'

or

tr -d "\015"

perl -p -i -e 's/' < b > c
Substitution pattern not terminated at -e line 1.