#!/usr/bin/perl
use strict;
use warnings;
use Regexp::Common qw /URI/;


while(<DATA>){
chomp;
/$RE{URI}{HTTP}{-keep}/
        and  print "Contains an HTTP URI.\nHost=$3\n";
}

__DATA__
http://192.168.1.10/index.html
http://www.delicious.com/search?p=perl&chk=&context=main|&fr=del_icio_us&lc=