Help for this page

Select Code to Download


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

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

print 'Number of words: '.@words."\n";
  2. or download this
    my @words = split(/\b\W*/, $_); # split into words