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