#!/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 https://www.testhttps.de
oder http://test.de/slash/pfad
oder info\@test.example
TEXTPLAIN

identifylinks (\$testtext,'<a href="%s" target="_blank">%s</a>');
print "<pre>$testtext</pre>";

#--------#
sub identifylinks {
	my $text = $_[0];
	my $link = $_[1];
	my $modul = 1;
	eval "use URI::Find; 1;" or $modul = 0;
	if ($modul) {
		my $finder = URI::Find -> new (
			sub { return sprintf ($link,@_); }
		);
		$finder -> find ($text);
	}
}
#--------#