while ( $line = <FH> ) { 
  # do stuff to $line
}