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