my @data = qw/one start two three stop four/;
foreach (grep {not ((/^start/../^stop/) =~ /^1?$|E/) } @data) { 
    print "o> $_\n";
}

# or:
my @data = qw/one start two three stop four/;
foreach (grep {not +(/^start/../^stop/) =~ /^1?$|E/ } @data) { 
    print "o> $_\n";
}