#!/sw/bin/perl
use warnings;
use strict;

open(FP, $ARGV[0]);
while(<FP>) {
    $_ =~ s/\n//g;
    $_ =~ s/\r//g;
    $_ =~ s/\^M//g;
    print $_;
}
close(FP);

