fight_for_utf8_flag.pl

use strict;
use warnings;
use LWP::Simple;
use XML::Simple;
use Unicode::RecursiveDowngrade;

my $url =
"http://www.dmm.co.jp/digital/videoa/-/list/=/article=actress/id=6644/ch_navi=actress/sort=date/rss=create/_jloff=1/";
my $content = get($url);
my $ref     = XMLin($content);
my $rd      = Unicode::RecursiveDowngrade->new;
$ref = $rd->downgrade($ref);
for my $item ( @{ $ref->{item} } ) {
    print $item->{title} . "\n";
}