Select Code to Download

our $qr=qr/<(?:[<>\\]+|\\.|(??{$qr}))*>/;
print "not " unless '<<><><<<>>><>>'=~/^($qr)$/;
print "ok - $1\n";

print "not " unless '<<><><<<>>><>>'=~/^((?&:<(?:[<>\\]+|\\.|(?:&))*>)
+)$/;
print "ok - $1\n";

my $rules=qr/(?&& # compile this stuff, but dont match it
             (&foo: .... ) # define ...
...
             )
           /x;
if ($blah=~/(&foo)(&bar)$rules/) { ... }