use HTML::LinkExtractor;
use Data::Dumper;

my $input = q{
<blockquote cite="http://crazyinsomniac.perlmonk.org/index2.html">
Now that's some goood feedass (ass back it's all good) %')

</blockquote>
     If <a href="http://perl.com/"> I am a LINK!!! </a>
     <IMG SRC="YODAYODAYODAYODAYODAYODAYODAYODAYOD.png" ALT="It's YODA!">

};
my $LX = new HTML::LinkExtractor();

$LX->parse(\$input);

print Dumper($LX->links);
__END__
$VAR1 = [
          {
            'cite' => 'http://crazyinsomniac.perlmonk.org/index2.html',
            '_TEXT' => '<blockquote cite="http://crazyinsomniac.perlmonk.org/index2.html">
Now that\'s some goood feedass (ass back it\'s all good) %\')

</blockquote>',
            'tag' => 'blockquote'
          },
          {
            '_TEXT' => '<a href="http://perl.com/"> I am a LINK!!! </a>',
            'href' => 'http://perl.com/',
            'tag' => 'a'
          },
          {
            'alt' => 'It\'s YODA!',
            'src' => 'YODAYODAYODAYODAYODAYODAYODAYODAYOD.png',
            'tag' => 'img'
          }
        ];