Select Code to Download

s/([\.\d]+)e\(?([-+]?\d+)\)?/$1*10**$2/egi;

my $foo = 1.2234e(+2);

my $foo = 1.2234e+2;

$_=sprintf("%#1.4e",122.34);
print;
s/([\.\d]+)e\(?([-+]?\d+)\)?/$1*10**$2/egi;
print $/;
print;