while ((($_=<FH>) !~ /^\"\@ENDQUERY\"/)  or  (eof FH)) {

##</code><code>##

while ((($_=<FH>) !~ /^\"\@ENDQUERY\"/)  and  (not eof FH)) {