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