foreach my $line (@lines) {
  push @extracted, $line if isbeg($line) .. isend($line);
  last if isend($line);
}