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