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




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