Select Code to Download

$ ./nice_num.pl
1234.123 = 1234 0.123000000000047
...
130.000 = 130 0
500 = 500 0
345678.345 = 345678 0.34499999997206

#!/usr/bin/perl -w

...
    }
    print "\n";
}