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

##</code><code>##

my $foo = 1.2234e(+2);

##</code><code>##

my $foo = 1.2234e+2;

##</code><code>##

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