$text = "The population of 298444215 is growing"; $text =~ s/(?<=\d)(?=(\d\d\d)+$)/,/g; print "$text\n"; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl