#!/usr/local/bin/perl

$out = 'access.log-gif';
$in = 'access_log1';

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

while($l = <R>) {
#   if($l =~ /(*)\.gif \s*/) {
   if($l =~ /gif HTTP/) {
   print "GIF removed - $l \n";
   }elsif($l =~ /jpg HTTP/) {
   #}elsif($l =~ /(*)\.jpg\s*(*)/) {
   print "JPEG removed - $l \n";
   }else {
   print W "$l\n";
   }
}


