$ perl -e'CORE::say sprintf("%.100f", 0.15) =~ s/0+\z//r'
0.1499999999999999944488848768742172978818416595458984375

$ perl -e'CORE::say sprintf("%.100f", (1.15*170)+0.50) =~ s/0+\z//r'
195.999999999999971578290569595992565155029296875