If you are unconcerned about escaped quotes ("George \"The Man\" Washington") a quick way would be to set $keep to 1
&quotewords('\s+', 1, $_);
and then split on quotes.