$number = 1 ;
foreach  (@array) {	

#cut at appropriate sites
$_ =~ s/(e)/\n$header_$number\n$1/ ; 
$number++;    

#remove double ">>"                                      
$_ =~ s/\*/\*\n/g;
#remove blank lines                                 
$_ =~ s/\n+/\n/g ;     
}