Select Code to Download

sub nice_string {
join("",
        map { $_ > 255 ? # if wide character...
...
    chr($_)                     # else as themselves
    } unpack("U*", $_[0]));     # unpack Unicode
}

my $rss = new XML::RSS;
eval { $rss->parse(nice_string(get($url))); };