>perl -wle "print 1E+04"
10000