use HTML::TokeParser;
use LWP::Simple;
my $stuff = get('http://some_url.com);
my $file = HTML::TokeParser->new("$stuff");
while ( my $token = $file->get_tag("a")) {
my $url = $token->[1]{href} || "-";
my $text = $file->get_trimmed_text("/a");
print  "<a href=$url>$text</a><br>";
}
[download]