Oooh, cool way to split

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