RosettaCodeData/Task/Balanced-brackets/Perl/balanced-brackets-4.pl

sub balanced {
    my $depth = 0;
    for (split //, shift) {
        if    ($_ eq '[') { ++$depth }
        elsif ($_ eq ']') { return if --$depth < 0 }
    }
    return !$depth
}