my @words = split /\s+/, $string; my @words = $string =~ /(\S+)/g;