open(INPUT, "liaisondetail_list.html");
$/ = '<tr>';
while ($_ = <INPUT>) {
    last if (/Legacy stuff, hardcoded/);
}
while ($_ = <INPUT>) {
    s/ valign=top>/>/g;
    s/ valign="top">/>/g;
    s/ nowrap>/>/g;
    s/<td>/<td>/gi;
    s/<\/td>//gi;
    s/<\/tr>//gi;
    s/<tr>//gi;
    s/<br>//gi;
    s/\s+/ /g;
    s/<.table> .. endblock ..//;
    s/^\s*<td>//;
    s/\s*<td>/\t/g;
    @cols = split /\t/;
    if (@cols != 4) {
        die "Not four columns";
    } 
    $date = $cols[0];
    if ($date !~ /^\w+ \d\d\d\d$/) {
        print $_;
        die "Bad date $date";
    }
    $links = $cols1d6f2aa81b29043390617e6d02496b63bf78f1ab;
    $links =~ s/\(\.?pdf file\)//g;
    $links =~ s/\(pdf\)//g;
    $links =~ s/<\/a>( \(Temporary Document [^)]+\))/\1<\/a>/g;
    if ($links !~ /^(\s*<a href="[^"]+">[^<]*<\/a>)+\s*$/i) {
        print "------\n", $links, "\n";  
    }
}