Help for this page
($o *= $e) =~ /(0\.0*\d{0,5})/;
use bignum accuracy => 5; ... 0.000000000000000000000015623 0.000000000000000000000000022028 0.000000000000000000000000000031059