モジュールをバージョンアップしてから、UTF-8フラグの有無の違いでアダルトの排除が機能しなくなっていたのを発見。これもUnicode::RecursiveDowngradeを用いて対処しました。

キーワード一覧で、商品検索がある場合、utf8フラグによる文字化けが発生したのを修正と同様の問題ですね。

ついでに参考の溜めソースコードの大雑把な部分を出しときます。

my $rd = Unicode::RecursiveDowngrade->new;

my $url = "http://webservices.amazon.co.jp/onca/xml?Service=AWSECommerceService".
"&AssociateTag=" . $a_tag .
"&AWSAccessKeyId=" . $AccessKeyId .
"&Operation=ItemSearch&SearchIndex=Blended&ResponseGroup=Medium&type=heavy" .
"&Keywords=" . $keyword;

my $cache = new Cache::FileCache({
namespace => "aws-by-keyword",
default_expires_in => 60 * 60 * 24 * 7 ,
});

my $res = URI::Fetch->fetch( $url , Cache=>$cache, NoNetwork=>3600*24*7 ) or die URI::Fetch->errstr;
my $xmlsimple = XML::Simple->new( ForceArray => ['Item' , 'Format'] );
my $response = $xmlsimple->XMLin($res->content);

foreach my $result (@{$response->{Items}->{Item}}){
my $notflag="";
foreach my $format_text (@{$result->{ItemAttributes}->{Format}} ){
$format_text = $rd->downgrade($format_text); # unflagged UTF-8
$notflag = "non" if ( $format_text eq "アダルト" ) ;
}
next if $notflag ne "";
my $title = $result->{ItemAttributes}->{Title} ;
$title ="no title" if ( $title eq "" );
$out .= "$result->{DetailPageURL}."\t".$title."\n";

}
$out = $rd->downgrade($html); # unflagged UTF-8
return $out;

こんな感じ。