#! /usr/bin/perl

use strict;
use warnings;

my $file = '/path/to/file.txt';
my @entries;

{
  local $/ = "---------end}\n";
  open(FILE,"<$file") or die $!;
  while(my $entry = <FILE>){
    push(@entries,$entry);
  }
  close FILE;
}

foreach my $entry(@entries){
  my ($start)  = $entry =~ /(.{24})----------{ begin/;
  my ($end)  = $entry =~ /(.{24})--------------------- end }/;
}