perl5.10以降で可能な入れ子を扱う正規表現

gistfile1.txt

my $str = "a + (b * (3 / (c + 5)))";

$str =~ /\(((?:[^()]++|(?R))*)\)/;
#       /\(                   \)/;  # 括弧にマッチ
#          (                 )      # 後方参照
#           (?:[^()]++|(?R))*       # 括弧以外のバックトラックなしの貪欲マッチ または全体のパターンにマッチ(再帰)

print $1; ## "b * (3 / (c + 5))"