$ perl -le " print qr{\Qa??\E}; "
(?^:a\?\?)