As a note, there's a way to check for "lines which are composed only of spaces" that I find much more succinct:

print "Query: $line" if ($line =~ /\S/);

Or more generically:

next unless ($line =~ /\S/);
print "Query: $line";
[download]

"Not composed entirely of spaces" is equivalent to "contains a non-space character", at least in this context.