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;