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

##</code><code>##

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