I don't like .*?.

if (m{\[table\]                          # Match [table]
      ([^[]* (?:\[(?!/table\]) [^[]*)*)  # Match a string not containi
+ng [/table]
      \[/table\]                         # Match [/table]
     }x) {print $1}
[download]