$ perl -le'print 0+"1.12345E+05"'
112345