reg exp

[DartSidius]

Есть строка вида [crypt]tex1[/crypt][crypt2]text2[/crypt]

Мне нужно заменить [crypt]tex1[/crypt] & [crypt]tex2[/crypt] на некий код, внутри crypt код постоянно меняется...делаю так...но строка меняется полностью, засасывая всё целиком:

$var=~s/\\[crypt\\](.+)\\[\\/crypt\\]/$dataToCrypt/;

[arto]

.+?

[DartSidius]

так пробовал..не помогает...приведу полный код

$var = "[crypt]sometext[/crypt][crypt]sometext2[/crypt]";

if($var=~/\\[crypt\\](.+)?\\[\\/crypt\\]/) {
   print "\'$1\'

";
   $var=~s/\\[crypt\\]$1\\[\\/crypt\\]/$crypttext/;
}

выдает в принте целиком строчку : sometext[/crypt][crypt]sometext2

[DartSidius]

Туплюю не там поставил \'?\'. СПасибо!