Select Code to Download

do { use re qw(Debug More); $re1=qr/g/; }

$ cat t.pl
use strict;
...
has T
main::(t.pl:12):        print $_, "\n";
  DB<2>