my @matches;
while (<FILE>) {
  push @matches, $_ if /formulae/;
  last if scalar @matches == 2;
}