in reply to How do I print a large integer with thousands separators?
$number = 123456789; $number = reverse join ",", (reverse $number) =~ /(\d{1,3})/g; [download]