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

sub balanced {
    shift =~ /^ ( [^\[\]]++ | \[ (?1)* \] )* $/x;
}