s/([\200-\377])/sprintf "&#%d;", ord $1/ge;