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