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


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,