./qr_test.pl atuvz 'qr/ ( a )  (?| x ( y ) z | (p (q) r) | (t) u (v) ) ( z ) /x'
qr=(?x-ism: ( a )  (?| x ( y ) z | (p (q) r) | (t) u (v) ) ( z ) )
string=atuvz
(?x-ism: ( a )  (?| x ( y ) z | (p (q) r) | (t) u (v) ) ( z ) ) present
1=a
2=t
3=v
4=z