http://qs321.pair.com?node_id=484195


in reply to Unpredictable output from Text::ExtractWords

Change your string list to this:
my @strings = ( q|a ab abc abcd abcde|, q|abcde abcd abc ab a|, q|abcde a abc ab abcd|, q|yyy xzz wwww|, q|one two 'three'|, );
The C code strips single letter words, 2 letter words, "words" of repeating characters as non-text. Probably not very helpful. It is also buggy in handling the stripping as someone else mentioned so pick a better module! :/

--
$you = new YOU;
honk() if $you->love(perl)