while (<$fh>) { ... } ##

##

while (defined($_ = <$fh>)) { ... }

##

##

while (<$fh>) { ... }

##

##

while () {
   s/\s+$//;
   last if /^(?:exit|quit)?$/i;
   ...
}