How about Text::ParseWords?

I haven't tested it but you may use this module to split your strings on whitespace, while still ignoring those that are quoted. Then join the words together:

use Text::ParseWords;
@words = quotewords('\s+', 1, $text);
$text = join ' ' => @words;
[download]

--bwana147

Update: finally, I tested it and it works!