1 while s/(\d)(\d\d\d)(?:,|$)/$1,$2/;