$ perl -le'
    print "s:", "$ARGV[0]" ? "true" : "false";
    print "n:", 0+$ARGV[0] ? "true" : "false";
' 0.0
s:true
n:false

$ perl -le'
    print "s:", "$ARGV[0]" ? "true" : "false";
    print "n:", 0+$ARGV[0] ? "true" : "false";
' 'sd;kfdfs3'
s:true
n:false