There's also the oft-neglected HTML::PullParser to come to your aid. Here's a non-complete example of how you might use it

use strict;
use HTML::PullParser;

my $p = HTML::PullParser->new(
    file  => shift @ARGV,
    start => 'tagname, @attr'
);

while(my $t = $p->get_token()) {
    my($tagname, %attr) = @$t;
    print "alt text is $attr{alt}", $/
        if exists $attr{alt};
}
[download]

Remember to check out the docs for more info on the module (specifically the start and end events will be needed to get img tags from *within* a tags).
HTH

_________
broquaint