sub formatCode{
      my $code = shift;
      my $prev_header = 0;                     # takes care of closing divs
      for (split /\n/, $code) {                # No need to remove newlines
         if (/^\s*$/) { next }                 # Skip blank lines
         elsif ( /^(.*?)\[ ([^\]]*) \](.*)/x ) {      # If line is a header...
            print "$1</div>" if $prev_header;  #   close prev div, if there was one...
            print qq(<div class="$2">$3);      #   print current div...
            $prev_header = 1;                  #   and set current div flag.
         }
         else { print "$_<br />" }             # Simply print non-header lines
      }
      print "</div>" if $prev_header;          # You always have to close last div, so just do it here
   }