$ perl -CS -le 'print "na\x{EF}vet\x{E9}"' | perl -CS -pe 's/(\P{ASCII})/"&#".ord($1).";"/ge' naïveté $ perl -CS -le 'print "na\x{EF}vet\x{E9}"' | perl -CS -pe 's/(\P{ASCII})/sprintf "&#x%02X;", ord($1)/ge' naïveté