Select Code to Download

[danger:jandrew:~]$ cat blah.pl 
...
o> stop
o> four

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