use URI::Find;

my $text = "alot of HTML";
find_uris($text,
sub {
 my($uri, $orig_uri) = @_;
 print $orig_uri,"\n";
 return $orig_uri;
});