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




-----------------------------------------------------------------------------
Copyright 1997-2026 Jeffrey Friedl