s/([^[:ascii:]])/sprintf( "&#%d;", ord $1 )/eg