@list = $string =~ /"[^"]+"|\S+/g

##</code><code>##

@list = grep defined, $string =~ /"([^"]*)"|(\S+)/g;