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