use strict;
use warnings;

use URI::Find; 

my @found;

# this is just for this example, your $page will have the HTML
# this line slurps the DATA filehandle below into a scalar
my $page = do {local $/;<DATA>};

my $finder = URI::Find->new(
    sub { push @found,shift }
);

$finder->find(\$page);
print $_,$/ for @found;

__DATA__
<a href="http://foo.com/bar/qux.html">stuff</a>
<a href="http://bar.com/baz.cgi?foo=bar&stuff=more%20stuff">click</a>
<a href="mailto:spam@me.com">don't feed the trolls</a>