my $inlinetag = do {
        my $acc =
        qr/(?> \{          (?: (?> \\. | [^\\{}]+ | (??{ $acc }) ) )*   \} )/x;
        qr/    \{ (\w+): ( (?: (?> \\. | [^\\{}]+ | (??{ $acc }) ) )* ) \}  /x;
    };

##</code><code>##

    my $acc =
        qr/(?> \{          (?: (?> \\. | [^\\{}]+ | (??{ $acc }) ) )*   \} )/x;
    my $inlinetag =
        qr/    \{ (\w+): ( (?: (?> \\. | [^\\{}]+ | (??{ $acc }) ) )* ) \}  /x;

##</code><code>##

    my $inlinetag = sub {
        my $acc =
        qr/(?> \{          (?: (?> \\. | [^\\{}]+ | (??{ $acc }) ) )*   \} )/x;
        qr/    \{ (\w+): ( (?: (?> \\. | [^\\{}]+ | (??{ $acc }) ) )* ) \}  /x;
    };