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


while (<LABELS>) {

}

##</code><code>##

LOT1     PRODUCT1
LOT2     PRODUCT1
LOT3     PRODUCT2
LOT4     PRODUCT3
LOT5     PRODUCT2

##</code><code>##

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=$_;		
      }
 }