while($col=~s/(\d)(\d\d\d)(,|$)/$1,$2/)
 {}