% perl -E 'say qr{foo}i'
(?^ui:foo)
%