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


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

my $number = '$12345678.90'; # dollars $_ = reverse $number; s/(\d{3})(?=\d)(?!\d*\.)/$1,/g; $number = reverse $_;