Help for this page

Select Code to Download


  1. or download this
    if ($filename =~ /^[A-Z]{5}/) {
    ($section_title = $filename) =~ s!:!:</B>\n<BR><BR>!;
    $filename = "";
}
  2. or download this
    $section_title = ($filename =~ s/?[:]./':</B>\n< BR>< B>\n');