for my $result ($tree->findnodes(q{/html/body/div/div[@class="here"]})) {

    print $result->as_text;
    print "\n<br>".("-" x 120)."<br>\n";

}