URL erkennen (big Scipt)

[Björn Höhrmann]

zum erkennen von URLs habe ich hier im folgendes Scipt gefunden:

# Basic definitions:
   my $lowalpha       =  '(?:[a-z])';
   my $hialpha        =  '(?:[A-Z])';
   my $alpha          =  "(?:$lowalpha$hialpha)";
   my $digit          =  '(?:\d)';
   my $safe           =  '(?:[$_.+-])';
   my $extra          =  '(?:[!*'(),])';

Sieht sehr nach Abigail aus. perldoc URI::Heuristic