sub search_klassifizierungkurz {
    my ( $word ) = @_;

    my @rfTab = (
                # KurzString, RegExp
        [ "FWHFF", 'Feuerwehr[ \-.\/]'],
        [ "FWHFF", ' FF[ \-.\/]'],
        [ "FWHFF", 'Feuerw\.'],
        [ "FWHFW", "Wasserwehr"],
# viele weitere Einträge ...
    );

    foreach my $i ( @rfTab ) {
        my $suchstr = lc($i->[1]);
        if ( lc($word) =~ /$suchstr/ ) {
            return ($i->[0]);
        }
    }
    return ("");
}