#!/usr/bin/perl

use strict;
use warnings;
use URI::Find;

find_em();

sub find_em
{
    my $text = "http://www.goolge.com/ blah httg://kew.org ftp://127.0
+.0.1/warez";
    my @uris = ();
    my $finder = URI::Find->new(sub{my ($uri, $text) = @_; push @uris,
+ $uri;});
    my $how_many_found = $finder->find(\$text);

    print("uris are @uris\n");
}

__END__
[download]