14:26 >perl -we "my $s = qq[0\n]; printf qq[%s\n], ($s ? 'true' : 'false');"
true

14:31 >

##</code><code>##

#! perl
use strict;
use warnings;

local $/ = \1;

for ($_ = <DATA>; $_; $_ = <DATA>)
{
    print "<$_>\n";
}

__DATA__
1
0
42

##</code><code>##

for ($_ = <DATA>; defined $_; $_ = <DATA>)

##</code><code>##

print "<$_>\n" for <DATA>;

##</code><code>##

print "<$_>\n" while <DATA>;