s/(\d{1,3})
  (?=
     (?:\d\d\d)+
     (?!\d)
   )
/$1,/gx;