$  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;
> say $c; say "Value is: ",  exp $c,  " x 1e${d}00";'
3082
125.987232628425
Value is: 5.19469341155068e+54 x 1e308200

real    0m0.039s
user    0m0.030s
sys     0m0.000s