s/" *, */"|/g;
: loop
s/| *\([^",|][^,|]*\) *, */|\1|/g;
s/| *, */|\1|/g;
s/| *, */||/g;
t loop
s/ *|/|/g;
s/| */|/g;