in reply to Sentence Measurer

I suggest using Text::ParseWords.

In Section Seekers of Perl Wisdom