+<h1>Character encodings</h1>
+
+<p>
+<:
+if ($tablist[0] eq 'default') {
+ say "Overview of Unicode allocation and common latin code pages.";
+ say "Compare alternate charsets:";
+}
+else {
+ say "Charset comparison:";
+}
+
+sub optionlink {
+ my ($title, $href, $selected) = @_;
+ return sprintf(
+ $selected ? '<strong>%s</strong>' : '<a href="%2$s">%s</a>',
+ EscapeHTML($title), $href
+ );
+}
+
+print join " •\n", (
+ map {
+ join " ·\n", pairmap {
+ optionlink($b || ucfirst $a, '/charset'.($a && "/$a?compare"), $a eq $Request);
+ } @{$_}
+ }
+ [
+ iso => 'ISO',
+ dos => 'DOS',
+ mac => 'Apple',
+ ebcdic => 'EBCDIC',
+ $tablist[0] eq 'default' ? () : ('' => 'common'),
+ ],
+ [
+ westeur => 'West',
+ centeur => 'Central',
+ norteur => 'North European',
+ turkish => 0,
+ greek => 0,
+ cyrillic => 0,
+ hebrew => 0,
+ ],
+);
+:>.
+</p>