try:

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

the {5,} quantifier has to come after the [A-Z]. i also cleaned up the substitution regex a little.

jeff

Update: check out the other answers. they're better. thats what i get for posting too quickly, doh!