my @words= $string =~ /'[^']*'|\S+/g;
my @words= $string =~ /'(?:\\.|[^\\']+)*'|\S+/gs;
my @words= $string =~ /'(?:''|[^']+)*'|\S+/g;