Select Code to Download

$ths = ' this is a   string';
$i = split(/\s/,$ths);
print "$i\n";

$_ = ' this is a   string';
my @words = split " ";
...
$_ = ' this is a   string';
my $words =()= /(\S+)/g;
print $words, "\n";