Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -wT
use strict;
...

$number =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;
print "N=$number\n";

Select or download this
```
N=1234567890.01
N=1,234,567,890.01
```