while( my $line = <FILE> ) {
  ## ...
}