perl -e 'printf("%.30f\n", $_) foreach 12e-4, 1.2e-3'

##</code><code>##

0.001199999999999999900000000000
0.001199999999999999900000000000