open(F, "file"); 
my $lines = '';  # a scalar to store the lines in
my @lines;       # an array to store the lines in
while(<F>) {
   if (/StartPattern/.../StopPattern/) {
      $lines .= $_;    # append the line to my scalar
      push @lines, $_; # add the line to my array
   }
}
close(F);