$str =~ s/[dD]r./doktor/g;
    # konvertierung von St. in Sankt
    $str =~ s/[sT]t./sankt/g;
    # Meyer auch mit ei
    $str =~ s/[Mm]eyer/meier/g;