my $string = "0.0";
print "string $string is ", ($string ? "True" : "False"), "\n";
print "string $string is ", ($string+0 ? "True" : "False"), "\n";