5e-010 --> 5e-006e-4

##</code><code>##

my $out = sprintf('%f', $in/10**$exp);