my @Info;
open (LABELS, "labellist.txt") or die "I could not get at labellist.txt as input";


while (<LABELS>) 
 {
     chomp;
     if (m%E\n%)
      {
         print "$_\n";
	 print "\n";
	 @Info=$_;		
      }
 }