Select Code to Download

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

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

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