perl -e 'open(FILE,'queries'); @wfile = <FILE>; close (FILE); foreach (@wfile) { (undef,$req,$query,undef) = split(/\//,$_,4); $host=`host $req 2>/dev/null`; if ($host =~ m/^$/) { $host = $req; } else { $host =~ s/.*pointer //; chomp $host; } print "$host,$req,$query\n"; };'