#!/usr/bin/perl -w

use strict;

my $record;
while (<>) {
    $record = [split];
    if ($record->[10] =~
    	    m{^AltaVista%20Intranet
	     |^Arachnoidea
	     |^ArchitextSpider
	     |^Checkbot/
	     |^EmailSiphon
	     |^Googlebot
	     |^Gulliver/
	     |^InfoSeek%20Sidewinder
	     |^Intraseek
	     |^Java1.1.5
	     |^KIT-Fireball
	     |^Linbot
	     |^Lycos_Spider_
	     |^Mariner
	     |^Mozilla/.*;Kolibri%20gncwebbot
	     |^Mozilla/.*compatible;%20MuscatFerret/
	     |^Mozilla/2.0$
	     |^Openfind%20Robot/
	     |^Scooter
	     |^Slurp
	     |^Spider5
	     |^Ultraseek
	     |^WiseWire-.*Spider
	     |^ia_archiver
	     |^Harvest/
	     |^ramBot
	     |Eule\ Robot
	     }x
    ) {
	# print "ROBOT: $&\n";
    } else {
	print ("@$record\n");
    }

}
