use HTML::Parser;
sub parse_start {
   return unless $_[0] eq 'a';   # nur a-Tags
   return unless exists $_[1]->{href}; #muss ja irgendwo hin führen
   my $href = $_[1]->{href};
   print "$href";
}
my $p = HTML::Parser->new ( api_version => 3,
   start_h => [     # Handler fuer Start-Tags
       \&parse_start, 'tag, attr',  # Uebergib Tag und Attribute
   ],
);
# Start des Parsers, hier mit Daten aus dem _ _DATA_ _ Anhang
$p->parse_file(*DATA);
#für DATA musst du halt noch DATA erstellen oder eine Datei öffnen und ein Handle übergeben.