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