Select Code to Download

>perl -E '$x=q[Category("notestrecord")];@a=split "",$x;say join "" =>
+ sort grep { !$seen{$_}++ } @a'
"()Cacdegnorsty
>

>perl -e 'print "$_\n" for (qr/ab.c/,qr/ab.c/i,qr/ab.c/s,qr/ab.c/si)'
(?^:ab.c)
(?^i:ab.c)
(?^s:ab.c)
(?^si:ab.c)
>

>perl -E 'say for (qr/ab.c/,qr/ab.c/i,qr/ab.c/s,qr/ab.c/si)'
(?^u:ab.c)
(?^ui:ab.c)
(?^us:ab.c)
(?^usi:ab.c)
>

>perl -e 'print "$_\n" for (qr/[abc]/,qr/[aabbcc]/,qr/[abcabc]/,qr/[cc
+cbba]/)'
(?^:[abc])
(?^:[aabbcc])
...
(?^:[abcabc])
(?^:[cccbba])
>