use overload;
  print overload::StrVal(qr/asdf/);
  # Regexp=SCALAR(...)

##</code><code>##

  use Devel::Peek;
  Dump(qr/asdf/);

##</code><code>##

SV = RV(0x1af1fd8) at 0x1b0f118
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,ROK)
  RV = 0x1b0f190
  SV = PVMG(0x1c2c5ac) at 0x1b0f190
    REFCNT = 1
    FLAGS = (OBJECT,RMG)
    IV = 0
    NV = 0
    PV = 0
    MAGIC = 0x1af012c
      MG_VIRTUAL = 0x2808c138
      MG_TYPE = 'r'
      MG_OBJ = 0x1b0b51c
    STASH = 0x1de7570   "Regexp"