use Text::ParseWords;
@new = quotewords(",", 0, $text);