Select Code to Download

use strict;
use warnings;
...
    $words += scalar(split(/\s+/, $_));
    print $out ("Words=$words\nCharacters=$chars\n");
}

Words=10
Characters=68
...
Characters=475
Words=116
Characters=684