C:\>perl -le "print 'ok' if 3335.9999999999995 > 3335.999999999999;"
ok
####
C:\>perl -le "print 3335.9999999999995; print 3335.999999999999;"
3336
3336
##
##
C:>perl -le "print 'ok' if 3335.9999999999995 + 0.0000000000001 == 3335.9999999999995;"
ok
##
##
C:\>perl -le "print 3335.9999999999995;"
3336
##
##
printf "%a", $float;
or
printf "%.16e", $float;
##
##
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
##
##
use POSIX qw(strtod);
$x = strtod('1234e-5');
##
##
$x = 1234e-5;
##
##
use Math::MPFR qw(:mpfr);
$x = atonv('1234e-5');