Perl WWW :: Механизируйте вопрос кодирования

Question

У меня есть следующий код:

my ($url) = "http://example.com" 
my $m = WWW::Mechanize->new(); 
$m->get($url); 
my $c = $m->content; 
my $tree = HTML::TreeBuilder::XPath->new_from_content($c); 

if (my $content = $tree->look_down(_tag => "div", class => "content")) { 
    $content = $content->as_text(); 
} 

Вопрос в том, когда я анализирую содержание, часть текста имеет одинарные или двойные кавычки, которые не получают проанализированные правильно. Например, “this” становится “thisâ€.

Это мое понимание, что это некоторая Windows-1252 кодировка. Как я могу это исправить?

Я попытался добавить binmode STDOUT, ':encoding(utf-8)'; в начале программы, это не помогло.

Я пробовал добавить $content = utf8::decode($content);, но это не помогло.

Answer 1

Использование

$m->decoded_content; 

вместо

$m->content;