HTML::TagParser その2

use HTML::TagParser;
use Encode;

my $html = HTML::TagParser->new( "keyword.html" );
my @list = $html->getElementsByTagName( "div" );
for my $elem ( @list ) {
print encode('shiftjis', decode('utf-8', $elem->innerText)) if ref $elem;
print "\n";
}