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