while (1) {
  my $input = <FH> or last;
  # ....
  last if ($irgendwas eq $sonstwas);
  # ...

} # while