open my $handle, '<', \$query or die "Cannot open in-memory file handle: $!";
while (<$handle>) { ... }