#!/usr/bin/perl
# freq.pl - Don Yang (uguu.org)
#
# 11/30/04


map { (chr($_)=~/\s/) ? ++$space : ++$char; } unpack 'C*', $_ while(<>);
print "$char char, $space space, ", $char + $space, " total\n";