use Text::ParseWords;
@words = quotewords($delim, $keep, @lines);