in reply to Re: $_ and nested while loops w/angle operator
in thread $_ and nested while loops w/angle operator

Easy to fix that.
while ((($_=<FH>) !~ /^\"\@ENDQUERY\"/) or (eof FH)) {
Update: I think you'd better write it like:
while ((($_=<FH>) !~ /^\"\@ENDQUERY\"/) and (not eof FH)) {