perl -e '$a = "-4.84800000E+001"; $a += 0; $b = -48.48; print "EQ\n" if ($a == $b); print "$a\n$b\n";'