my @a = ($foo =~ /(?:\s+)?(.*?)(?=\s)/g);

##</code><code>##

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