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