#!/usr/bin/perl 
use strict;
use Regexp::Common qw(URI IRC);

while(<DATA>){
 chomp;
 /$RE{URI}{HTTP}{-keep}/ and print "$_ -> $1 -> uri\n";
 /^$RE{IRC}{nick}{-keep}$/ and print "$_ -> $1 ->  nick\n";
 /$RE{IRC}{channel}{-keep}/ and print "$_ -> $1 -> channel\n";
}

for ('Flexo: summon shaïtan' =~ /($RE{IRC}{nick}): summon \b($RE{IRC}{nick})\b/){
	print "$_\n";
}
1;
__DATA__
http://foo.com
perigrin
#axkit-dahut
shaïtan
#shaïtan