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