#!/user/bin/perl
# Script zum entfernen von mehrfachen Zeilenumbrüchen.
use strict;
use warnings;

my $file=shift(@ARGV);
my $new='new.txt';

die "Usage: <script> <file>\n" unless($file);

open(my $nw,'>', $new) or die("Error open $new ($!)\n");
open (my $fl,$file) or die("Error open $file ($!)\n");

while(my $line=<$fl>) {
  chomp($line);
  $line .= "\n" if($line);
  print $nw $line;
}

close $fl;
close $nw;

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