use Text::ParseWords;

@words = quotewords($delim, $keep, @lines);

