print '<tr>';
print '<th colspan=2>';
-printf '<td title="%s">%s', $_->{name}, $_->{abbr}
- for @{ $cover->{fonts} }[@fontlist];
+printf('<td title="%s">%s', map { EscapeHTML($_) }
+ join("\n", $_->{name}, $_->{description}),
+ $_->{abbr},
+) for @{ $cover->{fonts} }[@fontlist];
say '</thead>';
for (@rows) {