#!/usr/bin/perl -W
use strict;
use warnings;
use diagnostics;

my $testtext = <<TEXTPLAIN;
Dies ist ein kleiner
Test zur Erkennung von Hyperlinks test.de oder www.test.de oder http://www.test.de
oder info\@test.example
TEXTPLAIN

my $link_auf = '<a href="*URL*" target="_blank">';
my $link_zu = '</a>';
identifylinks (\$testtext,$link_auf,$link_zu);

print "<pre>$testtext</pre>";

#--------#
sub identifylinks {
        my $text = $_[0];
        my $li = $_[1];
        my $re = $_[2];
        my $modul = 1;
        eval "use URI::Find; 1;" or $modul = 0;
        if ($modul) {
                my $finder = URI::Find -> new (
                        sub {
                                my ($uri,$orig_uri) = @_;
                                (my $links = $li) =~ s/\*URL\*/$uri/;
                                return qq|$links$orig_uri$re|;
                        }
                );
                $finder -> find ($text);
        }
}
#--------#