perl -we "my $s = qq[0\n]; printf qq[%s\n], ($s ? 'true' : 'fal
+se');

##</code><code>##

syntax error at -e line 1, near "my  ="
Search pattern not terminated or ternary operator parsed as search pattern at -e line 1.

##</code><code>##

#! perl
use strict;
use warnings;

local $/ = \1;

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

__DATA__
1
0
42

##</code><code>##

<1>
<
>