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