Select Code to Download

$ perl -E 'say for split /\W+/, " THIS is a variable number of words, 
+spaces  and  punctuation. "'

...
spaces
and
punctuation

$ perl -E 'say for split /[ ,.]+/, " THIS is a variable number of word
+s, spaces  and  punctuation. " =~ s/^[ ,.]*//r'
THIS
...
spaces
and
punctuation