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