You are doing what WWW::Mechanize was designed for. It fetches pages and parses them, so you can easily do something like:

my $mech = WWW::Mechanize->new();
$mech->get( "http://somesite.com" );
my @links = $mech->links;
for my $link ( $mech->links ) {
   # do whatever
}
[download]

WWW::Mechanize will be your friend. Trust me.