#!/usr/local/bin/perl

$out = 'stripaccess.log';
$in = '/tmp/access_log';

open(R,"<$in");
open(W,">$out");

while($l = <R>) {
   if($l =~ /gif HTTP/) {
   }elsif($l =~ /jpg HTTP/) {
   }elsif($1 =~ /GIF HTTP/) {
   }elsif($1 =~ /xbm HTTP/) {
   }else {
   print W "$l";
   }
}


