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