http://qs321.pair.com?node_id=402850


in reply to How do I print a large integer with thousands separators?

$num = 123456789;
$num = reverse $num;     # reverse the number's digits
$num =~ s/(\d{3})/$1,/g; # insert comma every 3 digits, from beginning
$num = reverse $num;     # Reverse the result
$num =~ s/^\,//;         # remove leading comma, if any

[download]

In Section Seekers of Perl Wisdom