Here is a example:

$_ = "{a{12}s{ss}}";
my $myre;
$myre = qr/
    {
      (?:
        (?>[^{}]+)
        | (??{$myre})
      )*
    }/x;
my ( $match ) = /($myre)/;
print $match;
[download]