in reply to Re: Re: To Kill a Meme: while(defined($line = <>))
in thread To Kill a Meme: while(defined($line = <>))

Your snippet isn't doing what you think it is; using -MO=Deparse,-p shows that it really is doing a defined() check.

$|++; 
$/=\1; 
print "[$_]" while ($_=<>, $_)
__END___
abcd
[a][b][c][d][
]0000000000000

[download]

(I see no holes with sauoq's response, though.)

Warning: Unless otherwise stated, code is untested. Do not use without understanding. Code is posted in the hopes it is useful, but without warranty. All copyrights are relinquished into the public domain unless otherwise stated. I am not an angel. I am capable of error, and err on a fairly regular basis. If I made a mistake, please let me know (such as by replying to this node).

In Section Meditations