foreach ( grep { (/start/../stop/) !~ /^1?$|E/} @arry ){
#...
}