while(<>) {
    s/(\d),(?=\d)/$1|$2/g;
    print;
}