s/[^\x00-\x7f]+//g;

##</code><code>##

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