the other way is to use Text::ParseWords

use Text::ParseWords;
$_ ='1111  "222 222"   333 4444 55    666 77777';
print join(",", (quotewords('\s+', 0, $_))[0,1,2,4,5,6]);
[download]

As Corion suggested, here is the link toText::ParseWords