$ perl -E 'say 1.234567e-302'
1.234567e-302

##</code><code>##

$ perl -E 'say 1.2345678e-302'
1e-302

##</code><code>##

$ perl -E 'say "help" if 1.2345678e-302 == 1e-302'
help
$ perl -E 'say "what" if 1.2345678e-302 < 1.234567e-302'
what

##</code><code>##

$ perl -MPOSIX -E 'say scalar strtod "1.2345678e-302"'
1.2345678e-302

##</code><code>##

$ perl -E 'say 5.5000000000e-298; say 5.50000000000e-298'
5.5e-298
5e-298