$re = \qr/test/io;  # now a *reference* to the regexp
bless $re, $class;

print ref($re);     # Temp
print ref($$re);    # Regexp