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);
}

##</code><code>##

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

##</code><code>##

foreach my $foo (@foos) {
  do_more_stuff($foo);

  if ($foo =~ /baz/i) {
    next unless $foo eq uc $foo;
  } else {
    next unless $foo ne uc $foo;
  }
  # stuff
}

##</code><code>##

foreach my $foo (@foos) {
  do_stuff($foo);
  do_more_stuff($foo);
}

sub do_stuff {
  my $foo = shift;

  if ($foo =~ /baz/i) {
    return unless $foo eq uc $foo;
  } else {
    return unless $foo ne uc $foo;
  }
  # stuff
}

##</code><code>##

foreach (1..5) {
  print "Hello\n";
  goto DONE;
}
DONE:

foreach (1..5) {
  print "World\n";
  goto DONE;
}
DONE: