my $zeile = "234232             hallo          forum";
$zeile =~ s/\s+/,/g;