require URI::Find;

       my $finder = URI::Find->new(\&callback);

       $how_many_found = $finder->find(\$text);