$test =~ s#^([A-Z]{5}):#$1:</B>\n<BR><BR>#;

##</code><code>##

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