PerlのHTML::EntitiesでHTML特殊文字をデコードする

Web::ScraperでHTMLをパースした時に&や'がHTML特殊文字に置き換わることが分かったので
HTML::Entitiesのdecode_entities関数で元に戻す。

サンプル

use HTML::Entities;


my $html = "--&#39;--<a href='localhost'>test</a>--&#39;--&#38;--&#34;--";
print decode_entities($html);

結果

--'--<a href='localhost'>test</a>--'--&--"--