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