C:\>perl -le "print 'ok' if 3335.9999999999995 > 3335.999999999999;"
ok

##</code><code>##

C:\>perl -le "print 3335.9999999999995; print 3335.999999999999;"
3336
3336

##</code><code>##

C:>perl -le "print 'ok' if 3335.9999999999995 + 0.0000000000001 == 3335.9999999999995;"
ok

##</code><code>##

C:\>perl -le "print 3335.9999999999995;"
3336

##</code><code>##

printf "%a", $float;
or
printf "%.16e", $float;

##</code><code>##

C:\>perl -MMath::MPFR=":mpfr" -le "print nvtoa(2 ** -1074);"
5e-324

C:\>perl -MMath::MPFR=":mpfr" -le "print nvtoa(sqrt 2.0);"
1.4142135623730951

##</code><code>##

use POSIX qw(strtod);
$x = strtod('1234e-5');

##</code><code>##

$x = 1234e-5;

##</code><code>##

use Math::MPFR qw(:mpfr);
$x = atonv('1234e-5');