foreach my $TABDATEI (glob("*.txt")){
   open (EINGABEFILE, "<$TABDATEI") or warn "Kann $TABDATEI nicht lesen!\n";
   open (AUSGABEFILE, ">$TABDATEI.neu.txt");
    while (<EINGABEFILE>) {
        chomp;
        # Split on single tab
        my @Fld = split(';', $_);

        foreach my $token (@Fld) {
            print AUSGABEFILE "$token\t"
            }
        print AUSGABEFILE "\n";
        }
  }