$text =~ s/(\d)(?=(\d\d\d)+(?!\d))/$1,/g;




-----------------------------------------------------------------------------
Copyright 1997-2025 Jeffrey Friedl