while (<FH>) {
    if ($_ =~ /^\"\@QUERY:(.*)\"/) {
        my $query = $1;
        my $i = 1;
        while (<FH> !~ /^\"\@ENDQUERY\"/) {
            print $_;
            #$data{$query}->{$i}->{$_} unless ($_ eq "");
            $i++;
        }
    }
}