#!/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 info\@test.example
TEXTPLAIN
identifylinks ($testtext);

#--------#
sub identifylinks {
	my $text = $_[0];
	use CGI qw(escapeHTML);
	use URI::Find;
	my $finder = URI::Find->new(sub {
		my($uri, $orig_uri) = @_;
		return qq|<a href="$uri">$orig_uri</a>|;
	});
	$finder->find(\$text, \&escapeHTML);
	print "<pre>$text</pre>";
}
#--------#