perl -pi.bak -e "s/,/|/g" <file>