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