Select Code to Download

use warnings;
use strict;
...
    "@{[$o *= $e]}" =~ /(0\.0*\d{0,5})/;
    print "$1\n";
}

0.00141
0.0000019881
...
0.000000000000000000000015622
0.000000000000000000000000022027
0.000000000000000000000000000031059