#!/usr/bin/perl
#
# This script fixes the HTMLized man page created by Yodl.

while (<>) {
    s,^(<a name),</ul>$1,;
    s,^<li>(.*),$1<ul>,;
    m,^\s*<li><strong></strong>\s*$, && next;
    s,(<h2>NAME</h2>),</center><hr><p>$1,;
    m,(.*)<h2>(.)(.*)</h2>(.*), &&
	($_ = "$1<h2>$2<font size=+1>" . uc $3 . "</font></h2>$4");
    m,^\s*<hr>\s*$, && next;
    s,<p><p><br>,<p>,;
    print;
}


