# put commas in the right places in an integer
1 while s/(\d)(\d\d\d)(?!\d)/$1,$2/;