{
	local $/;
	$/="\r";
	open INFILE, $ARGV[0];
	open OUTFILE, ">$ARGV[1]";
	while(<INFILE>){
		chomp;
		print OUTFILE "$_\n";
	}	
}