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