s/([^0-\7F])/sprintf "&#%d;", ord $1/ge;