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