Select Code to Download

 perl -we'use strict;use P; use Types::Core qw(typ);
my $re = qr{ab};
P "re(=%s), has ref %s, and type %s", $re, ref $re, typ $re;
'
re(=(?^:ab)), has ref Regexp, and type REGEXP

Binary "=~" binds a *scalar expression* to a *pattern match*.

perl -we'use strict;use P; 
my $str="part";
...
'     
res1:#=2, content=(['p', 'a'])
res2:#=2, content=(['p', 'a'])

> perl -we'use strict; use P qw(:undef="(undef)");
my $qr_string = q((?:\G(\w)\W{2}(\w))*);
...
   res_mqr:#=8, content=(['p', 't', 'p', 't', 'p', 't', (undef), (unde
+f)])
    res_qr:#=2, content=(['p', 't'])
   res_qr2:#=2, content=(['p', 't'])