Hello again!
Last week there was an article on perl.com covering this case. I just copy and paste the example:

  while (<FILE>) {
    if (/START/ .. /STOP/) {
      push @lines, $_;
    }
  }
[download]

neniro