[xyz]level 1.1[/xyz]
[xyz]level 1.2[/xyz]

##</code><code>##

<table><tr><td>level 1.1</td></tr></table>
<table><tr><td>level 1.2</td></tr></table>

##</code><code>##

[xyz]level 1.1 [xyz]level 2.1[/xyz] rest of 1.1 [/xyz]

##</code><code>##

<table><tr><td>level 1.1 <table><tr><td>level 2.1</td></tr></table>rest of 1.1 </td></tr></table>

##</code><code>##

[xyz] error [xyz] level 1.1 [xyz] level 2.1 [/xyz] [/xyz]
[xyz] level 1.2 [/xyz]

##</code><code>##

[xyz] error <table><tr><td>level 1.1 <table><tr><td>level 2.1 </td></tr></table> </td></tr></table>
<table><tr><td>level 1.2 </td></tr></table>

##</code><code>##

while ($string =~ s/
  \[xyz\] 
  (text not containing [xyz] or [\/xyz]) 
  \[\/xyz\]
  /
  "<table><tr><td>$1</td></tr></table>"
  /gsiex;

##</code><code>##

    while ($string =~ s/
	(\[\Q$tag\E\])
	(.+?)
	(\[\/\Q$tag\E\])
	/
	   my ($pre, $text, $post) = ($1,$2,$3);
	   if ($text =~ m|\[\Q$tag\E\]|) {
	       $pre.$text.$post;
	   }
	   else {
	       "<table><tr><td>$text<\/td><\/tr><\/table>"
	   }
	/gsiex) {
	1; # do nothing
    }