in reply to XML::RSS
I stole this snippet from the Perl-XML FAQ at http://perl-xml.sourceforge.net/faq/
$str =~ s/([^\x0A-\x7F])/'&#' . ord($1) . ';'/gse; [download]