use utf8;

s/([\x{80}-\x{FFFF}])/'&#' . ord($1) . ';'/gse;