while (s(\d)(\d\d\d)(?!\d)/$1,$2/) {};