- print '<table class="glyphs">';
- print ref $_ ne 'ARRAY' ? "<tr><th>$_" : map {/^<td/ ? $_ : "<td>$_"} @$_ for @table;
- print "</table>\n\n";
+ say '<table class="glyphs">';
+ print ref $_ ne 'ARRAY' ? "<tr><th>$_\n" : map {/^<td/ ? $_ : "\t<td>$_\n"} @$_
+ for @table;
+ say "</table>\n";