# French and Italian anagrams my $windex = $_; $windex =~ tr/àèéìòù[A-Z]/aeeiou[a-z]/; # gives the same signature # to accented and # unaccented vowels tr/ÀÈÉÌÒÙ[A-Z]/àèéìòù[a-z]/; # converts to lowercase $windex = pack "C*", sort unpack "C*", $windex; # create index