'qr/(?[ ( ( [c^] - [d^] ) | ( [^c] & ( [a] + [2] ) ) ) ])/', ## TODO REPORT misparsed as [^c] and [^d]
"qr{ \\pP\\p{P}\\PP\\P{P} }x", ## TODO report bug misparsed single letter Unicode properties
q{qr{[\200-\377\x00-\x1f]}}, ## TODO REPORTBUG NOT PARSED AS RANGE 
q{qr{[\0-\377]}}, ## TODO REPORTBUG NOT PARSED AS RANGE 

'qr{
(?#legals)
(?^) (?aa) (?a) (?d) (?l) (?u) (?p) (?i) (?m) (?s) (?x) (?-i) (?-m) (?-s) (?-x) (?x)
(?#NOTlegals)
(?aad) (?ad) (?al) (?au) (?uu) (?ll) (?dd) (?-a) (?-d) (?-l) (?-u) (?-p) (?-^) (?gcer) (?-gcer)
}x',,,

"m{(?i)a(?-i)B(?i)(?-i:B\\w(?i:q\\w))q}xi",# a case insensitive B case sensitive