$_ = foo; /foo/;

# prints "bar\n"
for (qw/bar baz/) { print "$&\n" unless /bar/; } 

# prints "foo\n"
for (qw/bar baz/) { next if /bar/; print "$&\n"; }