$ perl -le'print "1.12345E+05" - 100000'
12345

##</code><code>##

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