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