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