{ s/(\d)(\d\d\d)(?!\d)/$1,$2/ && redo }