$test =~ s#
           (?<!       # Negative lookbehind
             .{6}     # Six of any non-newline character
           )
           (?<=       # Positive lookbehind
             [A-Z]{5} # Five caps
           )
           :          # Here's what we're really substituting   
         #:</B>\n<BR><BR>#;x