$_ ='The,quick,brown;foxy.  Does a lot,of:jumping!';

my @words = split(/\W*\s+\W*/, $_); # split into words

print 'Number of words: '.@words."\n";

##</code><code>##

my @words = split(/\b\W*/, $_); # split into words