REPORT HEADER ISCDAYRECAP-001 ISC001
 ISC RECAP REPORT FOR STORE: 001                                        PAGE: 00
1
                                                       XTNDED MRKDWN FOR STORE:
     12.00            R U N
DEPT:    GROCERY                                         POST DATE: 07/14/2011
                     DATE/TIME: 07/14/2011  21:11:05

                                                               EXTEND  MRKDWN
REASON                  EXT. MRKDWN


##</code><code>##

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

open my $IN,"<","QISC001" or die "Can not open QISC001: $!\n";

my @records;

my $data = do{
  local $/;
  <$IN>;
};


@records = split m|(?<=\n)(?=REPORT HEADER ISCDAYRECAP-\d{3})|, $data;

close $IN;