in reply to Getting stranger values in subtraction

This has been asked several times. See What Every Programmer Should Know About Floating-Point Arithmetic for details. 
$x = 319.02 - 112.09 - 69.75 - 113.57 - 23.61;
print $x, "\n", sprintf "%.2f\n", $x;

[download]
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

In Section Seekers of Perl Wisdom