Sorry, I should have thought of adding sample usages.

Printing a story from __DATA__ (the most used, 124 pages):

html( code => sub { story(*DATA) });
[download]

Printing a list:

html( code => sub { list(3,'u',\@items, { class => 'two' }) });
[download]

Printing a definition list:

html( code => sub { definition_list(3, { headings => ['term','definiti
+on'] }) });
[download]

Printing a story from __DATA__ with a link_list:

html( code => sub {
  story(*DATA);
  link_list(3,'HTML Links',%HTML_links);
});
[download]

Printing a mixed bag:

html( code => sub {
  story(*DATA);
  heading(3,2,'Royal chess pieces');
  definition_list(3, { headings => [qw(piece move)] });
  table(3, { class => 'royal_chess', caption => 'Royal chess board', r
+ows => [['data',\@rows]] });
});
[download]

I was hoping there was a solution which did not require me to rewrite 169 files, however if one does not exist, I will.