#!/usr/bin/perl -w
# Count character frequencies.


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