Select Code to Download

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

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

}