Select Code to Download

sub isbeg {
  my $test = shift;
...
  foreach (@endings) { return 1 if $test =~ /$_/}
  return;
}

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