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


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

$number =~ s/(?<=\d)(?=(?:\d\d\d)+\b)/,/g;