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