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

##</code><code>##

EQ
-48.49
-48.49

##</code><code>##

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

##</code><code>##

-48.48
-48.48

##</code><code>##

perl -v
This is perl 5, version 22, subversion 2 (v5.22.2) built for x86_64-linux-thread-multi
(with 33 registered patches, see perl -V for more detail)