Select Code to Download

use HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new;
...
    $p->tag eq "div" or next; # <img> not inside a <div>
    my $txt = $p->as_text;
    }

print $tree->as_HTML (undef, "  ", {});