note tobyink Usually, <c>while( EXPRESSION )</c> stops looping when the expression becomes false, but Perl has an exception to that rule: if the expression is just reading a line from a file (and perhaps assigning it to a variable), then it only stops looping when the expression is undefined (undefined is false of course, but there are certain values which are false but defined). This works in conjunction with the fact that reading a line from a file that has reached its end will return undef. Observe the difference: <c> $ echo -n "0" | perl -E'while(<>) { say "GOT" }' GOT $ echo -n "0" | perl -E'while(<> and 1) { say "GOT" }' $ </c> The first one prints "GOT" even though it read a false value from STDIN. This is because the special "reading from a filehandle" version of <c>while</c> gets used. The second doesn't print "GOT". This is because the more complex expression forces <c>while</c> to use its standard behaviour. There is another interesting aspect of the reading-from-filehandle version of <c>while</c>: if you don't assign the line to a variable, it gets assigned to <c>$_</c>. This doesn't happen when you read from a filehandle normally - only within <c>while</c>. Observe: <c> $ echo "Hello" | perl -E'while(<>){ print $_ }' Hello $ echo "Hello" | perl -E'<>; print $_' $ </c> So anyway, <c>while (<$fh>)</c> works out as being equivalent to: <c> while (defined($_ = <$fh>)) </c> ... which (by design, not just by luck) happens to be the kind of loop most people usually want when they're reading from a file. I suppose the other thing that is worth mentioning is the special variable <c>$/</c> which is used by <c>readline</c> (an thus by <c><$fh></c>) to determine the current line ending. By default it's <c>"\n"</c> but you can set it to anything else you like, including undef.  <div class="pmsig"><div class="pmsig-757127"> <tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do' </tt> </div></div> 1006738 1006738