use HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new;

$tree->parse_content ($html);
foreach my $img ($tree->look_down (_tag => "img")) {
    my $p = $img->parent;
    $p->tag eq "div" or next; # <img> not inside a <div>
    my $txt = $p->as_text;
    }

##</code><code>##

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