perl -pe 's/,/|/ for $_, $_'