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