# # my ($mcode, $CFG, $select) = @_; # have the top selected too $mcode =~ s|
(.+?)
    |
    $1
      |g; $mcode =~ s|
      ([^<]+?)
        |
        $1
          |g; $mcode =~ s|
            |
        |g; $mcode =~ s|
      \s*
\s*||g; return $mcode;
%body
/>