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