Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
print "N=$number\n";
$number =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;
print "N=$number\n";

Select or download this
```
N=12345.67890
N=12,345.67,890
```