Shell Programming and Scripting

FHEAD File1
THEAD TRANS1-blah
TDETL HI1
TDETL HI2
TDETL HI3
TTAIL TRANS1-blah
THEAD TRANS2-blah
TDETL HELLO1
TDETL HELLO2
TTAIL TRANS2-blah
FTAIL File1

TDETL HI1, THEAD TRANS1-blah
TDETL HI2, THEAD TRANS1-blah
TDETL HI3, THEAD TRANS1-blah
TDETL HELLO1, THEAD TRANS2-blah
TDETL HELLO2, THEAD TRANS2-blah

$ perl -nle 'if ($a == 0 && $_ !~ /^F/)  { push @x, $_; $a=1; next; }
             if ($a == 1 && $_ !~ /^TT/) { print "$_, @x";          }
          elsif ($a == 1 && $_ =~ /^TT/) { @x=(), $a=0;             }' file

awk '/THEAD/ {a=$0} /TDETL/ {print $0 "," a}' urfile

my $tmp;
while(<DATA>){
	chomp;
	if(/THEAD/){
		$tmp=$_;
		next;
	}
	elsif(/TDETL/){
		print $_," ",$tmp,"\n";
	}
}
__DATA__
FHEAD File1
THEAD TRANS1-blah
TDETL HI1
TDETL HI2
TDETL HI3
TTAIL TRANS1-blah
THEAD TRANS2-blah
TDETL HELLO1
TDETL HELLO2
TTAIL TRANS2-blah
FTAIL File1