$ perl -MO=Deparse
while (<STDIN>)
{
    print;
}

##</code><code>##

while (defined($_ = <STDIN>)) {
    print $_;
}
- syntax OK