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