sub gimmelinks {
    my $html = shift;
    my @linkywinkys;
    use HTML::TokeParser;
    my $parsee = HTML::TokeParser->new(\$html);
    while (my $tag = $parsee->get_tag('a')) {
         push @linkywinkys, {url => $tag->[1]->{href},
                             txt => $parsee->get_trimmed_text('/a')};
    }
    return @linkywinkys;
}
[download]

That should do you fine if you want to use good old HTML::TokeParser. You get the link text free as well! It returns an array of hashes, where the url is the "url" key and the text is the "txt" key. What am I saying - figure it out yourself :)

--
amoe