sauoq sighs.

True. It only works on integers. I should have said so.

How about this...

s/(\d+)/$_=$1;1while(s|(?<!\b)(\d{3})(?:\b)|,$1|);$_/e
[download]

:-P

-sauoq
"My two cents aren't worth a dime.";