You could just use it as is.

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

All your work is equivalent to adding zero to the arg.

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