$ perl -lwe '$/ = \128; ++$hist[tr/\0//c] while <>; print "$_: $hist[$_]" for 0..$#hist;' lookzpM.byte-* 0: 12003438 1: 148200 2: 147874 ... 42: 330481 43: 33028