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

##</code><code>##

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