my $number = 123;
$number =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;
print $number;