Select Code to Download

my $text = " THIS is a variable number of words, spaces  and  punctuat
+ion. ";
my @list = split /\W+/,$text;