>>330
(with-open-file (s "get.dat")
(mapcar (lambda (x)
(ppcre:split "\\s+" x))
(loop for l = (read-line s nil) while l collect l)))
;=> (("2ch.net." "8" "IN" "A" "206.223.154.230"))