tcpdump -w- | perl -le 'while (sysread STDIN, $b, 80) { print map /[[:graph:]]/ ? $_ : "." => split // => $b; }'