my %data = ();
my $query;
while (<FH>)
{
  if (my $result = /^"\@QUERY:(.*?)"$/ .. /^"\@ENDQUERY"$/)
  {
    next if $result =~ /E/;
    if ($result == 1)
    {
      $query = $1;
      next;
    }

    push @{$data{$query}}, $_;
  }
}