use utf8; use Text::Unidecode; foreach ( @strings ){ $_ =~ s/([^[:ascii:]]+)/unidecode($1)/ge; }