#!/usr/bin/perl

$infile=@ARGV[0];

open(FILE,"$infile") || die "Unable to open $infile: $!";
while(<FILE>) {
	s/\n/\\n\n/g;
	s/\r/\\r\r/g;
	print STDOUT;
}
close(FILE);
exit(0);
