while(my $s = <$fh>) {
  $s =~ /^ ?Query/ && $match_count1++;
}