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