Select Code to Download

$  time  perl -E 'my $c = log(2) * 1024000; my $d = $c / log(1e100);
> $d = int $d;  say $d; $c = $c - log(1e100) for 1..$d;
...
user    0m0.030s
sys     0m0.000s

$ time  perl -E 'my $c = log(2) * 1024000; my $d = int ( $c / log(1e10
+0));
>  say $d; $c = $c - $d *  log(1e100);
...
real    0m0.036s
user    0m0.000s
sys     0m0.046s