Select Code to Download

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

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