perl -pi.bak -e 's/,/|/g'