$text =~ s/(?<=\d)(?=(\d\d\d)+(?!\d))/,/g; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl