Select Code to Download

"@QUERY:FOO"
...data...
...
...data...
...etc...
"@ENDQUERY"

while (<FH>) {
    if ($_ =~ /^\"\@QUERY:(.*)\"/) {
...
        }
    }
}

Using perl 5.6.1 unless otherwise noted.
Apache 1.3.27 unless otherwise noted.
Redhat 7.1 unless otherwise noted.