my @a = ($foo =~ /(\S+)/g);