#!/opt/bin/perl

open (E,"lynx -dump http://www.cae.wisc.edu/cgi-bin/ballard/bofhserver.pl|");
foreach (<E>) {
    if (/____/) {
	$p=! defined($p);
	next;
    }
    if (/^\s*$/) { next; }
    s/\s+/ /g;
    if ($p) { print; }
}
print "\n";

close(E);