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;