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