while(<>) {
    tr/\r//d;  # get rid of the CR
    print if /^\@QUERY/ .. /^\@ENDQUERY/;
} 

##</code><code>##

while(<>) {
    tr/\r//d;
    print if /^\@QUERY/ .. eof;
}