Of course you can do it in a one liner too

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

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print