>perl -le "print 1.4/10;"
0.14

##</code><code>##

>perl -le "print 'wtf' if 0.14 != 1.4/10;"
wtf

##</code><code>##

>perl -le "print 'ok' if 0.13999999999999999 == 1.4/10;"
ok

##</code><code>##

>perl -le "printf '%.17g', 1e+23" 
9.9999999999999992e+22