if ($filename =~ /^[A-Z]{5}/) {
    ($section_title = $filename) =~ s!:!:</B>\n<BR><BR>!;
    $filename = "";
}