Help for this page
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;