use strict;
use warnings;

my $exp = -4;
my $in  = 5e-2;
my $out = $in/10**$exp;
print "$in --> ${out}e${exp}\n";

__END__
0.05 --> 500e-4