my $a = "0\n";

print "is zero\n" if $a == 0;