foreach my $foo (@bars) {
  {
    if ($foo =~ /baz/i) {
      last unless $foo eq uc $foo;
    } else {
      last unless $foo ne uc $foo;
    }
    # stuff
  }
  do_more_stuff($foo);
}