sub formatCode2{
      my $code = shift;
      my @arrCode = split (/\[([^\]]*)\]/, $code);
      my $size = @arrCode;

    # print whatever b4 1st delimiter
      if (@arrCode >= 1) {
         $_ = $arrCode[0];
         s/\n/<br \/>/ig;
         print qq(<div class="">$_</div>);
      }
    # print sections
      for (my $cnt = 1; $cnt < @arrCode; $cnt+=2){
         $_ = $arrCode[$cnt+1];
         s/\n/<br \/>/ig;          

         print qq(<div class="$arrCode[$cnt]">$_</div>);
      }
   }