perl -pe 's/(,[^,]*,)/$1\n/g'
1231,3453453,ewrtewrt,wertwe,rwewer,werewrwe
1231,3453453, ewrtewrt,wertwe, rwewer,werewrwe
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!