while (<INPUT>) {
    $n++ if /^Algorithm/;
    last if /^Experiment Name/;
  }
  close INPUT;