use Regexp::Common qw /URI/;

    while (<>) {
        /$RE{URI}{HTTP}/  
             and  print "Contains an HTTP URI.\n";
    }