All, can anyone provide some help? my current output is E00854), Seq #: 000595 in TLU: st_ and all I want is the E string and cannot get my substr working Here is my code:

 foreach (split /\n/, $EDM_nonactive_tapelist )  {
                        if (( /\((E\d+)/ ) && ( !m/\*Orig/ ) && ( m/st
+_9840_acs_0/ )) {
                                local $, = "\t";
                                #print OUT "$1\n" unless substr($_, 0,
+ 5) eq '*Orig';
                                #my $fooed = substr($_, 29, 34) ;
                                #print "$fooed \n";
                                print "$1\n" if substr($_, 29, 34) eq 
+'E0+';
                                #print "$_ \n";
                                exit 0;
                        }
                }
[download]