s/([^\0-\x7F])/'&#' . ord($1) . ';'/eg;