my $true = "0 but true"; print "$true\n" if $true == 0;