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

##</code><code>##

$section_title = ($filename =~ s/?[:]./':</B>\n< BR>< B>\n');