for my $foo (@bars) {
    # ... do preliminary stuff
    # ...
    if ($foo =~ /baz/i ? $foo eq uc $foo: $foo ne uc $foo) {
        # ... do conditional stuff
        # ...
    }
    # ... do remaining stuff
    # ...
}