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

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
test Platzhalter ||2||||||||||||
oder (http://test.de/slash/pfad)
oder info\@test.example
Und hier ein Gemeinschaftstest: http://www.test.de/login_index.php?email=info\@test.example
mal schauen...
http://www.orthopäden-hennef.de
und noch das Dach ^
TEXTPLAIN

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

#--------#
sub identifylinks {
	#
	# Erkennt und markiert Hyperlinks in einem Text
	#
	# Aufruf:
	# =======
	# my $testtext = 'test: http://www.test.de';
	# identifylinks (\$testtext,'<a href="%s" target="_blank">%s</a>','<a href="mailto:%s">%s</a>');
	# print $testtext;
	#
	my $text = $_[0];
	my $link = $_[1];
	my $email_link = (defined $_[2] ? $_[2] : '');
	if (eval "use URI::Find_eigenpatch; 1;") {
		my $finder = URI::Find->new(
			sub { return sprintf($link,@_); }
		);

		my $call = sub { return $_[0]; };
		if ($email_link ne '' && eval "use Email::Find; 1;" ) {
			my $finder = Email::Find->new(
				sub { return sprintf($email_link,$_[0]->format,$_[1]); }
			);
			$call = sub	{
				my $text = shift;
				$finder->find(\$text);
				return $text;
			};
		}
		$finder->find($text,$call);
	}
}