http://qs321.pair.com?node_id=203651


in reply to Parsing issue

use Text::ParseWords; %hash = /(\w+):((?:"[^"]*"|\s*,\s*|[^ ])*)/g; for(values %hash){ my @arr=parse_line(',', 1, $_); $_ = [@arr] if @arr > 1; }