Maybe you should submit that as a Q&A answer.

Here's another stab:

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