while () { ##

##

  while (defined($_ = )) {

##

##

  while (my $line = ) {

##

##

  while (defined(my $line = )) {