$tmp= &get_multi_line_field($jobxtrabody," WinSolve log file created ","Exit"); 
  &write_file (1,$zipchart,"@$tmp"); 
 
  
sub get_multi_line_field($$){ 
  my ($jobxtrabody,$start,$end,$opt) = @_;  
  my @field; 
  open(MEFJOB, "<$jobxtrabody") ||  error("[get_single_line_field()] Cannot open MEF job extra body file : $jobxtrabody"); 
  while( <MEFJOB> ) { 
    if ($_ =~ /^(\s)*$start/) { 
      $_=~ s/$start//; 
      push(@field,trim($_)."\n"); 
      while( <MEFJOB> )  { 
        if($opt!=1){next if /^(\s)*$/} 
        last if /^(\s)*$end/; 
        push(@field,trim($_)."\n"); 
      } 
      close(MEFJOB); 
     return \@field; 
    }  
  } 
  error("[get_multi_line_field()] Failed to read field $start"); 
  close(MEFJOB); 
 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
my @section; 
 
while( my $line = <DATA> ) { 
     
    if ( $line =~ /^WinSolve log file created/ .. $line =~ /^Exit/ ) { 
        push @section, $line; 
        if ( $line =~ /^Exit/ ) { 
            my $filename = "$1.LOG" if $section[2] =~ /^\@ (\S+)/; 
            open my $fh, '>', $filename or die "failed to create $filename <$!>"; 
            print $fh @section; 
            close $fh or die "failed to save $filename <$!>"; 
            undef @section; 
        } 
    } 
} 
 
 
__DATA__ 
WinSolve log file created 
@ 
@ gRSH1p_u @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 
@ 
[TRUNCATED SUBSECTION TEXT] 
@ 
Exit 
@ 
WinSolve log file created 
@ 
@ gOILp_u @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 
@ 
[TRUNCATED SUBSECTION TEXT] 
@ 
Exit 
@ 
WinSolve log file created 
@ 
@ gTRX1p_u @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 
@ 
[TRUNCATED SUBSECTION TEXT] 
@ 
Exit