This ought to be much less resource intensive on long or short strings, and accomplishes the same thing:
Code:
sub { my ($tag, $str) = @_;
$str =~ tr|ÀÂÄàâäÇçÉÊÈËéêèëÏÌÎïìîÖÔÒöôòÜÛÙüûùA-Z|aaaaaacceeeeeeeeiiiiiioooooouuuuuua-z|;
return { $tag => $str };
}
Jason Rhinelander
Gossamer Threads
jason@gossamer-threads.com