#!/usr/bin/perl
# count.pl - Don Yang (uguu.org)
#
# 12/27/08

foreach (unpack 'C*', (join '', <>))
{
   $count{$_}++;
}

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