while ( <FILE> ) {
  $in = $_