use HTML::LinkExtor;
my $p = new HTML::LinkExtor(
    sub {
        print "@_\n"
    },
);
$p->parse( q{
<a href="BUTTER"    href="SCOTCH">
<img src="AND" src="PEANUTS">
});
__END__
a href SCOTCH
img src PEANUTS