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