elsif (m/^Abteilung\s*\[\s*(.*)\s(\d*)\s\]\s(.*)$/){
                print OUT "Abteilung        [ $1 ]\nAbteilungsnummer [ $2 ] @@\n";
        }
        
        if (/^(.*?)$split(.*)$/){
                close OUT;
                $i++;
                open OUT, '> Dateien/wuw' . $i . '.txt' or die "ERROR!\n";
        }