Select Code to Download

perl -we'use strict;use P;      
my $re = qr{ (?x) (\w+) }; 
...
P "#matches=%s, matches=%s", scalar(@matches), \@matches;
exit scalar(@matches);'
#matches=1, matches=["another"]

perl -we'use strict;use P;      
my $re = qr{ (\w+) }x;    
...
P "#matches=%s, matches=%s", scalar(@matches), \@matches;
exit scalar(@matches);'
#matches=1, matches=["Just"]