use strict;
use warnings;

my ($new,$file) = ('new.txt',shift);
my @arr;
die "Usage: <script> <file>\n" unless($file);

open (FL,$file);
@arr = <FL>;

foreach my $line (@arr) {

$line =~ s.\n..;
$line .= "\n" if($line);
open(NW,">>$new");
print NW $line;
close NW;

}

close FL;
print "[*] opening file\n[*] removing newlines\n[*] write new file\n[*] done\n\n";