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