#!/usr/bin/perl -w
# count_char.pl - Don Yang (uguu.org)
#
# 04/26/08

use strict;
my %count;
while(my $line = <>)
{
   $count{$_}++ foreach unpack 'C*', $line;
}

foreach (sort {$a <=> $b} keys %count)
{
   print $_;
   if( $_ >= 32 && $_ < 127 )
   {
      print " '", chr($_), "'";
   }
   print " = $count{$_}\n";
}