#!/afs/athena/contrib/perl/p

$/  ="\n\n";
$pat = join(' ', @ARGV);

open(IDX, "/afs/sipb/user/mkgray/w4/Wander/data/index");
while(<IDX>){
    if(/$pat/i){
	/URL: (.+)/;
	$url = $1;

	$title = '';
	/Title: (.+)/;
	$title = $1;

	print("$url ($title)\n");
    }	
}