my $x = "-4.84800000E+001";
$x += 0;
my $y = -48.48;
print "EQ\n" if $x == $y;
printf "%.16f\n%.16f\n", $x, $y;

__END__
-48.4800000000000040
-48.4799999999999969