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

use Regexp::Common 'balanced';
my $re = qr/^$RE{balanced}{-parens=>'[]'}$/;
sub balanced {
  return shift =~ $re;
}