my @list = split ' ', $string; my @list = $string =~ /\S+/g;