#!/usr/athena/bin/perl

$|=1;
while(<>){
	if(/altavista.digital.com/){
		if(/\&q=([^& ]+)/){
		$q=$1;
		split;
		$q =~ s/\+/ /g;
		$q =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig; # remove % escapes

		print "$q\n" unless $done{"$q $_[0]"};
		$done{"$q $_[0]"}=1;
#			/cgi-bin([^ ]+)/;
#			print "$1\n";
		}
	}
}