#!/usr/bin/perl

use strict;
use warnings;

my $file = 'blubb.txt';

open(my $fh,"<",$file) or die $!;
my @daten = <$fh>;
close $fh;

chomp @daten;

for(@daten){
  s/\s//g;
}

my $neue_datei = 'test.txt';
open(my $w_fh,">",$neue_datei) or die $!;
print $w_fh $_,"\n" for(@daten);
close $w_fh;

print scalar(@daten)," Datensätze verarbeitet\n";