ValidなXHTML 1.1になるように出力をちょっとだけ変更。デフォルトの状態だと、ul直下にulが来ているので、そうならないようにしただけ。

修正は、以下のように。

qq! [$numstories]\n<ul>\n!
return qq!</ul>\n</li>\n! if $output_format eq 'ul';

実際、無意味。