#!/usr/bin/perl -w
use strict;
use warnings;

my $FILE;
my $DST;
my $filename;
print("What file do you want to remove the trailing Carrige Returns from:");
while($filename=<STDIN>){
	chomp($filename);
	last;
}
open (FILE, '<', $filename) or die "Failed to open file:$!";
open (DST, '>', "FIXED".$filename) or die "Failed to open fix file:$!";
while (<FILE>){
	if($_ =~ /\r$/){
		s/\r//;	
		print DST $_;	
	}
	else{
	       	print DST $_;
	}
}
print("The file $filename has been fixed. The new file name is FIXED".$filename.".\n");
close FILE;