{ my %exlinx; my $link = qr/ \[ (?: ([^|\]]*) \| )? ([^\]]*) \] /x; # 1: url 2: text my $inlinetag = do { our $acc = qr/(?> \{ (?: (?> \\. | [^\\{}]+ | (??{ $acc }) ) )* \} )/x; qr/ \{ (\w+): ( (?: (?> \\. | [^\\{}]+ | (??{ $acc }) ) )* ) \} /x; }; # 1: tag 2: text my $overig = qr/(?: (?> \\. | [^{\[\\]+ ) )*/sx; # -: text my $stuff = qr/(?> $overig ) | (?> $link ) | (?> $inlinetag )/x; my $paratag = qr/(\w+):\s*/; my $n = qr/\n\s*\n/; # These return html-ified versions of the input sub inlineparse { ... } sub paraparse { ... } sub colorize { ... } }