#!/usr/bin/perl
# freq.pl - Don Yang (uguu.org)
#
# 08/02/05


use strict;
my (%freq, $space, $char);

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

$space = $char = 0;
foreach (0 .. 255)
{
   (chr($_) =~ /\s/) ? ($space += $freq{$_}) : ($char += $freq{$_});
}

print $space + $char, " characters, $char non-whitespace\n";