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{};