$text =~ s/(\d)((\d\d\d)+\b)/$1,$2/g;




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl