$ perl -le " my $num = 3e-009; $num =~ s{[eE]([+-])?0+}{ * 10**$1}; print $num; " 3 * 10**-9 $ perl -le " print 3 * 10**-9 " 3e-009