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

##</code><code>##

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