$col=~s/(\d)(\d\d\d)$/$1,$2/g;