URI::Fetch::Decode Plaggerのcodeを参考(ほとんどコピー)にした。 URI::FetchでとってきたコンテンツをUTF8 flaggedにする。 use URI::Fetch::Decode; my $fetch = URI::Fetch::Decode->fetch("http://www.yahoo.co.jp/"); my $utf8 = $fetch->decode_content; あんまりテストしてないので注意。 package URI::Fetch::Decode; use strict; use warnings; use base qw(URI::Fetch); our $VERSION = '0.01'; sub fetch{ my $class = shift; my $fetch = $class->SUPER::fetch(@_); r