$number=1234567; # with commas, should be "1,234,567"
$number=~s/(\d)(\d{3})\b/$1\,$2/g;

##</code><code>##

while($number=~s/(\d)(\d{3})\b/$1\,$2/g){
 # nothing here -- how silly is this?
}