#!/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 = '<a href="%s" target="_blank">%s</a>';
identifylinks (\$testtext,$link);
print "<pre>$testtext</pre>";

#--------#
sub identifylinks
{
  my $text = shift;
  my $link = shift;
  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);
  }
}
#--------#