s/([^\x00-\x7f])/sprintf("&#%d;",ord($1))//eg;