elsif (m/^Schlagworte\s*\[\s*(.*)\s*\}$/){
        my @tags = split /, /, $1;
        for my $counter ( 1 .. @tags ) {
            print OUT sprintf "Schlagwort %-s [ %s ]\n", $counter, $tags[$counter-1];
        }
}