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