my @zeroes = qw( zero 0ButTrue 00 ); 

for my $z (@zeroes) {
    print "'$z' ", $z == 0 ? 'is ' : 'is not ', "equal to zero.\n";
    print "'$z' ", $z ? 'is ' : 'is not ', "true.\n\n";
}