I just wrote something like this. THe LWP::Simple is great for getting the page. To split out the URL's I used the HTML::TokeParser Which is great for going through a document and grabbing our the URLS. In my code I had to be able to use the Text and the URL This is a chunk of the program to demo. this will just print a list of links from a web site.

#!/usr/bin/perl -w
use strict;
use HTML::TokeParser;
use LWP::Simple;
my $page=get ('http:web.site.here/file.html');
unless (defined ($page)) {die "Unable to retrive page:$!\n";}
my @links; #multi demantional array to hold links
my $cnt = 0;
my $p = HTML::TokeParser->new(\$page);
while (my $token = $p->get_tag("a")) {
   my $url = $token->[1]{href} || "-";
   my $text = $p->get_trimmed_text("/a");
   $links[$cnt][0] = $text;
   $links[$cnt][1] = $url;
   $cnt++;
  }
#sample of accessing links array
$cnt =0;
my $size = @links;
while ($cnt < $size) {
   print "Text:$links[$cnt][0]\tURL:$links[$cnt][1]\n";
   $cnt++;
}
exit();
[download]

Ps. I am always open to suggestions. I'm still pretty new