<(common.inc.plp)><: my $textinc = 'sample.txt'; Html({ title => "unicode sampler", version => '2.1', stylesheet => [qw'light dark mono red'], data => [$textinc], image => 'sample.png', }); open my $source, '<', $textinc or Abort("Could not open text at $textinc", 501, $!); local $/ = "\n\n"; my $top = readline $source; my ($title, $hr, $intro) = split /\n(\pP)\1+\n/, $top, 2; say "

$title

"; say <<".";

HTML display of plain text intended for monospaced (terminal) output. Compare an expected rendering of the overview.

. say '

';
print $intro;

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

say "

\n";