Convert 1000000 into 1,000,000 using a perl regexp.
my $number - 1000000; $number = commify($number); sub commify { (my $num = shift) =~ s/\G(\d{1,3})(?=(?:\d\d\d)+(?:\.|$))/$1,/g; return $num; }
In the above code the first line should be:
my $number = 1000000;
