#!/usr/local/bin/perl

$wordcount = $charcount = 0;
$charpattern = "";
$wordpattern = "\\s+";
while ($line = <STDIN>) {
        $charcount += &count($line, $charpattern);
        $line =~ s/^\s+|\s+$//g;
        $wordcount += &count($line, $wordpattern);
}
print ("Totals: $wordcount words, $charcount characters\n");

sub count {
        local ($line, $pattern) = @_;
        local ($count);
        @items = split (/$pattern/, $line);
        $count = @items;
}
