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