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