#!/usr/local/bin/perl

$out = 'deep.log';
$in = 'deep';

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

while($l = <R>) {
   if($l =~ /query/) {
   }elsif($l =~ /exceeded/) {
   }else {
   print W "$l";
   }
}


