Splitting a file into records

TStanley has asked for the wisdom of the Perl Monks concerning the following question:

I have the following text file:


STORE MONITORING REPORT      as of 13-05-02 10:05:07
Scanning for FTFIMS

 STORE002 

-rwxr-xr-- 1 admins store 59025 Apr 11  2012 eft100.cbr
16295    58
-rwxr-xr-- 1 admins store 61143 Nov 15 15:47 chk075.cbr
33334    60
-rwxr-xr-- 1 admins store 420952 Sep  6  2012 test-encrypt
63327   412
-rwxr-xr-- 1 admins store 427068 Sep  6  2012 eft115-20
36184   418
-rwxr-xr-- 1 admins store 460694 Apr  3 06:15 eft6un
07640   450
-rwxrwxrwx 1 admins store 481069 Oct  4  2012 hostsocgw
46087   470
-rwxrwxrwx 1 admins store 503666 Feb 13 09:10 stratgw
22452   492
-rwxr-xr-- 1 admins store 14318 Nov  1  2010 unityrep
50196    14

 STORE006 

-rwxr-xr-- 1 admins store 59025 Apr 11  2012 eft100.cbr
16295    58
-rwxr-xr-- 1 admins store 61143 Nov 15 15:47 chk075.cbr
33334    60
-rwxr-xr-- 1 admins store 420952 Sep  6  2012 test-encrypt
63327   412
-rwxr-xr-- 1 admins store 427068 Sep  6  2012 eft115-20
36184   418
-rwxr-xr-- 1 admins store 460694 Apr  3 06:15 eft6un
07640   450
-rwxrwxrwx 1 admins store 481069 Oct  4  2012 hostsocgw
46087   470
-rwxrwxrwx 1 admins store 503666 Feb 13 09:10 stratgw
22452   492
-rwxr-xr-- 1 admins store 14318 Nov  1  2010 unityrep
50196    14
[download]

What I would like to do is save the first two lines off to a file then proceed to break down the rest as records. Right now my code merely is trying to break them into records, and it looks like:

my ($TEXTIN,$HTMLOUT);
my $input2 = $outputfile;
my $output2 = "FTFIMS.html";
my @records=();
my $inrecord=0;
my $rxRecStart = qr{STORE\d+};
my $rxRecStop = qr{\n\s};
my $recordStr = q{};
 
open $TEXTIN,"<",$input2 || die "Can not open $input2: $!\n";
open $HTMLOUT,">",$output2 || die "Can not open $output2: $!\n";
print $HTMLOUT "<html>\n<body>\n<pre>";

while(<$TEXTIN>){
  if (m{$rxRecStart}){
    $inrecord = 1;
    push @records, $recordStr if $recordStr;
    $recordStr = $_;
  }elsif(m{$rxRecStop}){
    $inrecord = 0;
    push @records, $recordStr if $recordStr;
    $recordStr = q{};
  }else{
    $recordStr .= $_ if $inrecord;
  }
}
 
close $TEXTIN;
print $HTMLOUT "$records[0]";
print $HTMLOUT "$records[1]";

print $HTMLOUT "\n</pre>\n</body>\n</html>";
close $HTMLOUT;
[download]

Right now, the above code is only printing the contents of $records[0], which is the first one that starts with STORE002. $records[1] is empty, which means my regular expressions for the record start and record stop are incorrect.
As always, give me a pointer in the right direction. Thanks.

TStanley
--------
People sleep peaceably in their beds at night only because rough men stand ready to do violence on their behalf. -- George Orwell

Back to Seekers of Perl Wisdom