$ perl -we 'print (((.0425*2) + .0025 ) - ((.0425*2) + .0025 )); print $/;' 0 $ perl -we 'print +((.0425*2) + .0025 ) - ((.0425*2) + .0025 ); print $/;' 0