my ( $word ) = @_;
    my $wordlc = lc $word;
    my @rfTab = (
               # KurzString, RegExp
        [ "FWHFF", 'feuerwehr[ \-.\/]'],
        [ "FWHFF", ' ff[ \-.\/]'],
        [ "FWHFF", 'feuerw\.'],
        [ "FWHFW", "wasserwehr"],
# viele weitere Einträge ...
    );

    foreach my $i ( @rfTab ) {
        my $suchstr = $i->[1]; # ->[1] sollten alle lowercase sein
        if ( $wordlc =~ /$suchstr/ ) {
            return ($i->[0]);
        }
    }
    return ("");
}