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