s/([^\000-\200])/'&#'.ord($1).';'/ge
s/([^\000-\200])/sprintf '&#x%X;', ord $1/ge