Balanced brackets: Difference between revisions

Straightforward depth counting:

<lang Perl>use 5.10.0; # for given ... when construct

my $depth = 0;

my @a = split('', shift);