['A'..'M'], ['N'..'Z'],
['a'..'m'], ['n'..'z'],
);
-my @chars2 = (@chars, ['_']); # trailing character (extended set)
+my @chars2 = (['_'], @chars); # trailing character (extended set)
print '<table><col>';
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
<td class="X">unicode
<td class="X Xl">latin1
<td class="X Xa">ascii
- <td class="X Co">private
<td class="X Xz">proposed
</table>
</div>