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