use HTML::TreeBuilder::XPath;
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_content(do { local($/); });
for my $result ($tree->findnodes(q{/html/body/div})) {
print $result->findvalue(q{//div[@class="here"]});
print "
".("-" x 120)."
";
}
__DATA__;