$pat = "A\\\\B";
$text = /$pat/

##</code><code>##

$pat = qr/A\\B/;
$text = /$pat/

##</code><code>##

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