my $fixed = $bad
         =~ y/\x{00d0}/\x{0110}/r               # Eth != D-stroke
         =~ y/\x{0189}/\x{0110}/r               # LETTER AFRICAN D != D-stroke
         =~ s{\bpra[ck]ti[sc]e\b}{practice}gr   # All 4 seen in document AB12.38C
         =~ s{\bX13\.GtrA\.14\b}{X13_GA12}gr    # Product got renamed
         =~ s{\b1234\s*zip\b}{1234ZIP}gir       # Reciever will crash on badly formed ZIP code
         =~ s{\bpays\s*-?\s*bas\b}
             {The Netherlands}gir               # French forms :(
         =~ ....;