in reply to Re-define Word Boundary?

This you might want to use split: 

my @words = split /[\s,.]+/,$rec;

[download]

In Section Seekers of Perl Wisdom