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