perl -pe 's/,/$i++<10 ? "|" : ","/ge'