Select Code to Download

C:\>perl -e "print '1,000,000' + 1000"
1001
C:\>

sub decommify { 
    my ( $number ) = @_;
...

__DATA__
1,001,001.12345679