While reading a book on advanced Perl programming(1), I came across this code:
while (defined($s = <>)) { ...
Is there
while($line=){ chomp($line); if(***defined*** $line){ print "SEE:$line\n"; } } __DATA__ 1 0 3
Try the code with defined removed and you will see the different result.