my %counts;
 $counts{CHARS} =  length $content;
 $counts{WORDS} =  scalar( () = $content =~ /\b/g     ) / 2;
 $counts{SENTN} =  scalar( () = $content =~ /\w\.\W/g );
 $counts{PARAS} =  scalar( () = $content =~ /\n/g     ) + 1;