#!/usr/local/bin/perl

($wordcount, $charcount) = &getcounts(3);
print ("Totals for three lines: ");
print ("$wordcount words, $charcount characters\n");

sub getcounts {
        local ($numlines) = @_;
        local ($charpattern, $wordpattern);
        local ($charcount, $wordcount);
        local ($line, $linecount);
        local (@retval);

        $charpattern = "";
        $wordpattern = "\\s+";
        $linecount = $charcount = $wordcount = 0;
        while (1) {
                $line = <STDIN>;
                last if ($line eq "");
                $linecount++;
                $charcount += &count($line, $charpattern);
                $line =~ s/^\s+|\s+$//g;
                $wordcount += &count($line, $wordpattern);
                last if ($linecount == 3);
        };
        @retval = ($wordcount, $charcount);
}
sub count {
        local ($line, $pattern) = @_;
        local ($count);
        @items = split (/$pattern/, $line);
        $count = @items;
}
