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