I want to count the numbers of words in the paragraph by Perl script