#!/usr/bin/perl
use LWP::Simple;


#undef $/;
#$/='';

my $url;
my $patt;
while(<DATA>){
  chomp;
  if(/(^\S+)\s*(.*?)\s*$/){
    ($url,$patt)=($1,$2||undef) ;
    my  $c= get($url);
    print "$url\n";
    print "\tCouldn’t get it $url!\n" unless defined $c;
    print "\tStrange $patt not found!\n" if defined $c&& defined($patt) && $c !~ m!$patt!i;
  }
}

__DATA__
http://natura.di.uminho.pt/~jj                 Almeida
http://natura.di.uminho.pt/jjbin/dac           cal.o
http://natura.di.uminho.pt/~jj/musica          Portuguesa
http://natura.di.uminho.pt/jjbin/musica-cgi?k=godinho Pires
http://natura.di.uminho.pt/
http://natura.di.uminho.pt/natura/natura                    ferramentas

http://natura.di.uminho.pt/natura/viewcvs.cgi/
http://natura.di.uminho.pt/natura/viewcvs.cgi?cvsroot=Corpora
http://natura.di.uminho.pt/natura/natura?&topic=TerminUM     memories
http://natura.di.uminho.pt/natura/natura?&topic=Ferramentas