s{(?<!\d|\.)(\d+)}
 {my $n=$1;
  $n=~s/(?<=\d)(?=(?:\d{3})+$)/,/g;
  $n
 }e;