Помогите с регэкспом

Не понимаю в чем пробелема, уже час бьюсь

$desc="slovo [vor~var] slovo [ver] slovo ";
$desc=~s/(\[[A-z, ,~]+\])//;

идея такая что должно замениться только то что в первых скобках
а у меня почему то заменятся все что между первой скобкой и последней

с фигурными скобками работает

$desc="slovo {vor~var} slovo {ver} slovo ";
$desc=~s/(\{[A-z, ,~]+\})//;

Использую нежадный плюс (Ungreedy Matching)

уже ответили, блин, пока логинился, опередили

на счет 2й: похоже скобка ] попадает в диапазон A-z, иначе как объяснить такое:
$desc1="aaa}bbb";
$desc2="aaa]bbb";
$desc1=~s/([A-z]+)//;
$desc2=~s/([A-z]+)//;
print "desc1=$desc1\n";
print "desc2=$desc2\n";
выводит:
desc1=}bbb
desc2=

хотя может туплю, поправьте если не прав

Спасибо админам Амхоста ))
все решилось
оказалось дело в [A-z] в этот диапозон входят []

гы, ну как я и говорил

Поддерживаю. Правильный вариант: [a-zA-Z]. И плюс можно оставить как был.

а тогда в догонку
принципиальная разница есть между [A-Z],[a-z] i [a-zA-Z]

Разница в том, что [A-Z] матчит заглавные буквы, а [a-z] - прописные. [A-Za-z] - и те, и другие. Если использовать флаг /i при матче, что все три класса буков будут одинаковыми, т.е. различия между ними не будет.

У тебя проблема была в том, чтом в ASCII таблице символов между буквами Z и a находится 6 лишних сиволов, в том числе квадратные скобки.

это я все понял)
теперь понял что и разницы нету