mikeraz@hive:~> perl -e 'my $x = (.0425 * 2) + .0025; print $x - (.0425 * 2) - .0025, $/;'
2.16840434497101e-18
mikeraz@hive:~>

##</code><code>##

mikeraz@hive:~> perl -e 'print ((.0425*2) + .0025 ) - ((.0425*2) + .0025 ); print $/;'
0.0875
mikeraz@hive:~>