+ EscapeHTML($p);
+ $p =~ s{ \A ((\pL+) \N*:) \n }{<h2 id="\L$2\E">$1</h2>}x;
+ if ($2 eq 'Unicode') {
+ # table without proper direction control
+ $p =~ s/^(?= )/\x{202d}/gm; # ltr override every line
+ }
+ $p =~ s{(?<=^ )([\p{Latin} ]+:)}{<em>$1</em>}gm;
+ print $p;