Select Code to Download

#! /usr/bin/perl
use warnings;
...
{
        print "$qrtest NOT present\n";
}

./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 ) )
...
2=t
3=v
4=z

./qr_test.pl atuvwz 'qr/ ( a )  (?| x ( y ) z | (p (q) r) | (t) u (v) 
+(w) ) ( z ) /x'
qr=(?x-ism: ( a )  (?| x ( y ) z | (p (q) r) | (t) u (v) (w) ) ( z ) )
...
2=t
3=v
4=z

./qr_test.pl atuvwxz 'qr/ ( a )  (?| x ( y ) z | (p (q) r) | (t) u (v)
+ (w) (x) ) ( z ) /x'
qr=(?x-ism: ( a )  (?| x ( y ) z | (p (q) r) | (t) u (v) (w) (x) ) ( z
+ ) )
...
1=a
2=t
./qr_test.sh: line 11: 40158 Segmentation fault

./qr_test.pl 'atuvwxz' 'qr/ ( a )  (?| x ( y ) z | (p (q) r) | (t) u (
+v) (w) (x) ) ( z ) /x'
+ ./qr_test.pl atuvwxz 'qr/ ( a )  (?| x ( y ) z () () ()| (p (q) r) |
+ (t) u (v) (w) (x) ) ( z ) /x'
...
4=w
5=x
6=z