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