#!/cygdrive/c/Perl/bin/perl  -d
{
  while ( <STDIN> ) {
  if (length $_ > 200) {
	$g++;
     }else{
  	s/- --//;
  	@line = split /"/;
  	if ($line[1] =~ /GET/) {
		$i++;
  	}elsif ($line[1] =~ /HEAD/) {
		$h++;
  	}else{
		print $line[1];
		$j++;
	}
     }
  }
  print "total get lines found $i\n";
  print "total HEAD lines found $h\n";
  print "total non-get lines found $j\n";
  print "total garbage lines found $g\n";

}