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 docume
+nt 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 :(
=~ ....;
The more examples I see posted by my esteemed co-monks, the less I like the idea, and I hated it already when I read it in the OP.
Enjoy, Have FUN! H.Merijn
|