use strict;
use warnings;
use LWP::UserAgent;
use HTML::Parse;

# fuer das Beispiel lokal als String definiert:
my $html = 
'Ein Bild <img src="logo.gif">, und ein zweites 
<img src="building.gif"> dann noch ein
Hyperlink <a href="http://www.google.de">Google</a>
'; 

# HTML-Syntaxbaum aufstellen
my $tree = HTML::Parse::parse_html($html);

# Links extrahieren
my $link_ref = $tree->extract_links(); 

# Dereferenzieren (nur zur Uebersichtlichkeit)
my @link = @$link_ref;

for my $i(0 .. $#link) 
  { print $link[$i][0], "\n"; }
  
# liefert:
#  logo.gif
#  building.gif
#  http://www.google.de