while(<$fh3>)
    {
        
        if(/^Context:/)
        {
            $line = chomp($_);
            
            $line= substr($_,10,length($_));
            @array = split(/ /, $line);
            $line='';
                   

            foreach my $idx (0 .. 5) {
             $array[$idx].="|"
            }
            print "$counter|",@array,"\n";
            
            if($array[2] ne "|")
            {
               
              $counter++;
               
               print $fh1 "$counter|",@array,"\n"
            }
        }

        if(/Message:/ || $MessageFound)
        {
            if($array[2] ne "|")
            {
               
                 $MessageFound=1;
               
                   if($_ =~ /^\n/)
               
                 {
               
     chomp($line);
               
     $line =~ s/\s/ /g;
               
     print $fh2 "$counter|$line\n";
               
     $line = '';
               
     $MessageFound=0;
               
 }
               
 else
               
 {     chomp($_);
               
     $line .= $_
               
 };
            }
        }
    }
    $headline=1;

}