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