(Disclaimer:  cross post from perlmonks)<br /><br />
<p class="code"><tt class="codetext"> mikeraz@hive:~> perl -e 'my $x =
(.0425 * 2) + .0025; print $x - (.0425 * 2) - .0025, $/;'<br />
 2.16840434497101e-18<br />  mikeraz@hive:~><br /> </tt></p>
<p> Silly me would expect something like 0 to be printed.  Why the
2.16840434497101e-18?  (OK, round it off and you have 0, but ....) </p>
<br />WT_?<br /><br />-- <br />     Michael Rasmussen<br />  
http://www.jamhome.us/<br /> Be Appropriate && Follow Your Curiosity