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