Select Code to Download

my $qr=qr/^normal$/;
my $bqr=bless qr/^blessed$/,"Foo";
print "Normal : $qr\n";
print "Blessed: $bqr\n";

Normal : (?-xism:^normal$)
Blessed: Foo=SCALAR(0x1acf020)

SV *
regexp(sv)
...
    /* 'twould appear it aint a regex, so return undef/empty list */
    XSRETURN_UNDEF;
}

my $qr=qr/^foo$/;
while (length $qr < 1000) {
    print "$qr\n";
    $qr=eval "qr/$qr/" or die $@;
}

(?-xism:^foo$)
(?-xism:(?-xism:^foo$))
...
(?-xism:(?-xism:(?-xism:(?-xism:(?-xism:^foo$)))))
(?-xism:(?-xism:(?-xism:(?-xism:(?-xism:(?-xism:^foo$))))))
...