while(...)
{
     my $nextline = <IN>
     .....
}

##</code><code>##

my $nextline = <IN>;
while($nextline eq '')
{
      $nextline = <IN>;
      print"Nextline is empty\n";
}

##</code><code>##

...
if($nextline ne '')
{
     last;
}
...