substr complexities

[DBSMITH]

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;
                        }
                }

thank you, 

derek