#!/bin/perl
# frequency table of characters
while (<>) {
    grep($cc[$_]++,unpack("C*",$_));
};
for ($i=0;$i<128;$i++) {
    printf("%d %s %d\n",$i,$i>32?sprintf("%c",$i):sprintf("^%c",$i+64),$cc[$i]);
};