c:\@Work\Perl\monks>perl -wMstrict -le
"print 'perl version: ', $];
 ;;
 $a = '-4.84800000E+001';
 $a += 0;
 $b = -48.48;
 print 'EQ' if $a == $b;
 printf qq{%0.20f ?==? %0.20f \n}, $a, $b;
"
perl version: 5.008009
-48.48000000000000400000 ?==? -48.47999999999999700000

perl version: 5.010001
EQ
-48.47999999999999700000 ?==? -48.47999999999999700000

perl version: 5.014004
EQ
-48.47999999999999700000 ?==? -48.47999999999999700000