Help for this page
$test =~ s#^([A-Z]{5}):#$1:</B>\n<BR><BR>#;
$test =~ s#(?<!.{6})(?<=[A-Z]{5}):#:</B>\n<BR><BR>#;