#! /usr/bin/perl
use strict;
use warnings;
use URI::Find::Schemeless;
use HTML::Entities qw(encode_entities);

my $text = q~
   hallo dies ist keine.url
   dies ist aber eine: www.intertivity.com
   ftp.irgendwas.de/test/thisfile mailto:perl@intertivityNOSP4M.com od
+er so
   yeah perl@intertivityNOSP4M.com http://www.intertivity.com/
   ~;

my $finder = URI::Find::Schemeless->new
   ( 
      sub {
         my ($uri, $originalUri) = @_;
         return q/<a href="/ . encode_entities("$uri") . q/">/ . encod
+e_entities($originalUri) . q~</a>~;
      }
   );

my $howManyFound = $finder->find(\$text);

print "$howManyFound URIs found\n";
print "$text\n";
[download]