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

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