$ perl -wE 'say for qr/(a|b|x)/i, qr{ /(a|b|x)/}i' (?^ui:(a|b|x)) (?^ui: /(a|b|x)/)