use Text::Unidecode; ... unidecode => sub { return unidecode($string) },