$  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


##</code><code>##

$ time  perl -E 'my $c = log(2) * 1024000; my $d = int ( $c / log(1e100));
>  say $d; $c = $c - $d *  log(1e100);
> say $c; say "Value is: ",  exp $c,  " x 1e${d}00";'
3082
125.987232618965
Value is: 5.19469336241126e+54 x 1e308200

real    0m0.036s
user    0m0.000s
sys     0m0.046s