perl -pe 's/,/|/;s/,/|/;s/,/|/'