$ perl -MB -le '$r=bless qr//,"P"; print B::svref_2object($r)->MAGIC->TYPE'
r