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

use Regexp::Common 'RE_balanced';
sub balanced {
    return shift =~ RE_balanced(-parens=>'[]')
}