use HTML::TokeParser;

my $doc = do { local $/; <DATA> };
my $p = HTML::TokeParser->new( \$doc ); 

while ( my $token = $p->get_tag("a") ) {
    my $url = $token->[1]{href};
    my $text = $p->get_trimmed_text("/a");

    print "Link is: $url\n";
    print "Name is: $text\n\n";
}
[download]