$x = 319.02 - 112.09 - 69.75 - 113.57 - 23.61;
print $x, "\n", sprintf "%.2f\n", $x;


##</code><code>##

($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,