$/ = "0";
while (<DATA>) {
  print "got $_ and it ", ($_ ? "is" : "is not"), " true\n";
}
__END__
00000

##</code><code>##

got 0 and it is not true
got 0 and it is not true
...