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 "\n\n";
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\n\n";
close $HTMLOUT;