$substr = "A\\B";
$text = /\Q$substr\E/