#!/usr/bin/perl

my $old=shift @ARGV;
my $new=shift @ARGV;

open IN, $old or die "Can't open $old: $!\n";
open OUT, "> $new" or die "Can't open $new: $!\n";

my @oldlines=<IN>;
foreach(@oldlines){$_=~s/
//g};	

foreach(@oldlines){print OUT $_};
print OUT "\n";