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