#!/usr/local/bin/perl

die "Missing file name" if @ARGV == 0;

open(FD, $ARGV[0]) or die $!;
while ($line = <FD>) {
    next if $line !~ m/^\d+\s0\s/;
    @tokens = split(/\s+/, $line);
    foreach $token (@tokens) {
	for ($i = 0; $i < length($token); $i++) {
	    $val = vec($token, $i, 8);
	    if ($val < 20 or $val > 128) {
		$unks{$token}++;
	    }
	}
    }
}
close(FD);

foreach $unk (sort {$unks{$b} <=> $unks{$a} } keys %unks) {
    print "$unk $unks{$unk}\n";
}