It is not perfect (accented characters come out as their non-accented form)

Easily fixed

$text =~ s/(\P{Latin}+)/unidecode("$1")/ge;
[download]