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