my %replacements = ('ä' => 'ae', 'Ä' => 'Ae', ......);
&#36string =~ s/(.)/ exists &#36replacements{&#36 1} ? &#36replacements{&#36 1} : &#36 1 /ge;