#!/usr/bin/perl -w

$file = <STDIN>;

open(MACFILE, "$file") || die "could not open $file for reading - $!";		# opens file for reading

	my @data	= <MACFILE>;
	my $datalines	= scalar(@data) - 1;

close(MACFILE) || die "can't close $file - $!";



open(MACFILE, ">$file") || die "could not open $file for writing - $!";		# opens file for writing

	for (my $z = 0; $z <= $datalines; $z++) {

		$data[$z] =~ s/\r/\n/g;

		print MACFILE $data[$z];

	}

close(MACFILE) || die "can't close $file - $!";