poor man's binary filter

debug.exe-ish:


perl -le 'while (read(STDIN,$buf,78)){$buf=~s/[^ -~]/./gm;print $buf;}'


Sometimes od -c just won't do.