#!/usr/bin/perl

use warnings;
use strict;

my $sep = "----------";

my $post_sep = 0;
my $text_count = 1;
while(<DATA>) {
    chomp;
    if ( $_ =~ /Important Text: (\d+)/ ) {
        $text_count = $1;
    }
    if ( $_ =~ /^$sep/ ) {
        $post_sep = 1;
        next;
    }
    if ( $post_sep ) {
        my @field = split " ", $_;
        printf "%d,%s,%s,%s,%s,%s,%s\n", 
	    $text_count,$field[0],$field[1],$field[2],$field[3],$field[4],$field[5];
    }
}
__DATA__
Date 08/17/11 Report Page 1
Time 12:46

Important Text: 1
Misc Text: All
Misc Text: Sec
** Indicates 
APPTEXT 


PLINE     SCODE    PCODE    FID    SEC    unsec     fcs
-------------------------------------------------------------------------------------------------
TEST     TT     TT00    TT00.1    NO    xxxx    TTD
TEST    TT    TT00    **TT00.2    YES    XXXXXX
TEST    TT    TT00    **TT00.3    YES    XXX
TEST    TT    TT01    TT01.1    NO    XXXXXXXXXXX    TT
TEST    TT    **TT02    TT02.1    YES    XXXXX