use strict;
my @jobs = (
      'file2.txt|AAA|EOAAA',
      'file1.txt|SEGMENT3|EOS3',
      'file3.txt|P333|EOP333'
);

for (@jobs) {
   my ($file, $beg, $end) = split /\|/;
   my $first_line = 1;
   my @lines = ();
   print "Opening file: '$file'\n",
         "   beg:   '$beg'   end:   '$end'\n";
   open (INFILE, "<$file")
      or die "Could not open '$file': $!\n";
   while (<INFILE>) {
      if (/$beg/ .. /$end/) {
         chomp;
         print "   first: '$_'\n\n" if $first_line;
         $first_line = 0;
         push (@lines, $_);
      }
   }
   print "$_\n" for @lines;
   print "-" x 30, "\n\n";
   undef @lines;
}