^LSTORE 001
===============
DEPT:    PRODUCE
                                                               EXTEND  MRKDWN   REASON                 EXT.  MRKDWN
ITEM    DESCRIPTION                SIZE      QTY   WGT  RETAIL RETAIL  RETAIL   CD DESCRIPTION                 LOSS  VENDOR

0300008 28OZ FRT PLATTER/DIP      00028OZ     1    0.0    8.99   8.99    8.99   01 DAMAGED/UNSALEABLE          0.00  102827 
0080948 EXPRESS FANCY GREENS      00007OZ     6    0.0    2.99  17.94   17.94   01 DAMAGED/UNSALEABLE          0.00  103128 
0321855 CLAMSHL HYDRO BOSTON      00COUNT     1    0.0    1.99   1.99    1.99   01 DAMAGED/UNSALEABLE          0.00  104040 
0058309 12OZ MONTEREY MROOM       00012OZ     1    0.0    2.29   2.29    2.29   01 DAMAGED/UNSALEABLE          0.00  105524 
0058309 12OZ MONTEREY MROOM       00012OZ     1    0.0    2.29   2.29    2.29   01 DAMAGED/UNSALEABLE          0.00  105524 
0084448 10OZ SPINACH PACK 12      00010OZ     1    0.0    1.69   1.69    1.69   01 DAMAGED/UNSALEABLE          0.00  107505 

        REASON CODE TOTAL:                                              35.19                                  0.00

              DEPT TOTALS:                                              35.19                                  0.00


^LSTORE 002
===============
DEPT:    PRODUCE

0084508 2LB STRAWBERRIES          00002LB    20    0.0    3.69  73.80   73.80   01 DAMAGED/UNSALEABLE          0.00  101224     



DEPT:    PRODUCE

                                                               EXTEND  MRKDWN   REASON                  EXT. MRKDWN
ITEM  DESCRIPTION                   SIZE    QTY    WGT  RETAIL RETAIL  RETAIL   CD DESCRIPTION                LOSS   VENDOR


##</code><code>##

#!/usr/bin/perl -w
use strict;

open my $IN,"<","ISC001" or die "Can not open ISC001: $!\n";
open my $OUT,">","ISC-OUT2" or die "Can not open ISC-OUT2: $!\n";

$/="^L";

while(<$IN>){
  ......
}

close $IN;
close $OUT;

##</code><code>##

$_ =~s|DEPT:\s+PRODUCE\n{2,}(\s{63}EXTEND\s+MRKDWN\s+REASON\s+EXT.  MRKDWN\n)|$1|g;