Предлагаю помериться... Человеко-часами

s/\[(?!a|\/a).*?\]//g; 
print;

работает

тут есть всё что я хотел от ответа.

1. жадность.

2. Отрицание

Вот человек видно что в теме.

(\w{1,3}) в выражении означает, что тэг может быть любым символьным из 1-3 букв если вы туда напишете 12букаф оно работать не будет

(\w+) исправит эту "проблему"

так даже короче будет, только регулярка будет гораздо медленнее работать.

Для избранных: https://goo.gl/bFalNl

Кнопочку Execute нажмите и посмотрите в консоль зелененькую такую.

Так что символы считаем?

Но тут была критика на то что это не сработает:

#!/usr/bin/perl

$_=q~[li class="menu-123"][a href="/kontakt" title="Контакт"]Контакт[/a][/li]

[ba-hhhhhhhhh]каля маля[/ba-hhhhhh] jjjjjjj [bb]каля-------маля[/bb]

[audio]Я текст из тега аудио[/audio]

~;

s/\[(?!a|\/a).*?\]//g;

print;

---------- Добавлено 17.02.2017 в 10:43 ----------

Не надо кнопочек. У меня вопросы не скопировались при переносе регулярки.

Можно и больше. Пять раз, например.

Символов больше получится )))

Так я ему на это и указал увеличив число букв в теге от первоначального

---------- Добавлено 17.02.2017 в 10:57 ----------

s/\[(?!a|\/a).*?\]//g; 

print;

Красота. спасибо.

так замените на preg_replace('/\[(\w+)(\]|.*\])(.*)\[\/\\1\]/imU', '$3', $input);

и на вас снова наступит счастье

Это туда подставьте. Знаток.

Специально для вас, читабильность немного потерялось, но на то они и регулярные выражения.

Magic:

s/\[(((?!(a|\/a)).+?)|(\/?[\w]+){2})\]//g;

мой вариант сожрал, как не странно ))