Select Code to Download

$string=s/r/‰/g;

sub bylen { length($b)<=>length($a)} # sorts by decreasing length of s
+tring

foreach (sort keys bylen %trans) {
  s/$_/$trans{$_}/g;
}

$trans{Mh}='´';
$trans{gh}='³';