$str =~ s/([^\x0A-\x7F])/'&#' . ord($1) . ';'/gse;