if ( my $where = /$start_tag/ .. /$end_tag/ ) { 
                if ( $where == 1 or $where =~ /E/ ) {