>perl -e 'print "$_\n" for (qr/[abc]/,qr/[aabbcc]/,qr/[abcabc]/,qr/[cccbba]/)' (?^:[abc]) (?^:[aabbcc]) (?^:[abcabc]) (?^:[cccbba]) >perl -E 'say for (qr/[abc]/,qr/[aabbcc]/,qr/[abcabc]/,qr/[cccbba]/)' (?^u:[abc]) (?^u:[aabbcc]) (?^u:[abcabc]) (?^u:[cccbba]) >perl -e 'print "$_\n" for (qr"[abc]",qr"[aabbcc]",qr"[abcabc]",qr"[cccbba]")' (?^:[abc]) (?^:[aabbcc]) (?^:[abcabc]) (?^:[cccbba]) >