Help for this page

Select Code to Download

Select or download this

my $num = reverse shift;
$num =~ s/(\d{3})/$1,/g;
$num = reverse $num;