it's in the camel book somewhere....
1 while $x =~ s!(.*\d)(\d{3})!$1,$2!;
cheers.
================================================================
Ezra Pagel Software Engineer
Perl/Java/Oracle ezra at jdba.org
Austin Logistics, Inc. epagel at austinlogistics.com
Austin, Texas (512)-651-5644