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