#!/usr/bin/perl
use strict;
use warnings;
use URI::Find;
use CGI;

my $text=<<'EOT';
Etwas Text mit einer der URL http://www.example.org drin.
das hier geht auch: ftp://ftp.example.org/pub/index.txt !
EOT

my $cgi=CGI->new();

my $finder = URI::Find->new(sub{ return $cgi->a({-href=>$_[0]},$_[1]); } );

$finder->find(\$text);

print $text;