while (<FH>) {
    if ( /^"\@QUERY:(.*)"/ ) {
        my $query = $1;
        while (<FH>) {
            last if /^"\@ENDQUERY"/;
            next if $_ eq '';
            print $_;
            push @{$data{$query}}, $_;
        }
    }
}