Доброго времени суток...

Пожайлуйста подскажите, как можно проверить строку в которой храниться регексп.
Я думал сделать как-то так:

sub chk_str {
$str="dsf sdf [sdfsd\]";  # <---- не заекранирован символ "]"
$tst_msg = "test";

if ($tst_msg !=~ $str){
return -1;
}
}

но если строчке есть ошибка программа полностью вылетает:( как можно проверить?

Спасибо за помощь