HTMLから特定要素のテキストを抜き出す。

簡単。get_tagのところは複数指定可

my $p = HTML::TokeParser->new(\$html_data);
if ($p->get_tag("title")) {
warn $p->get_trimmed_text;
}