$ perl -MDevel::Peek -we 'my $s = "foo"; bless \$s, "bar"; Dump $s'
SV = PVMG(0x7acff0) at 0x790610
  REFCNT = 1
  FLAGS = (PADMY,OBJECT,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x7826d0 "foo"\0
  CUR = 3
  LEN = 8
  STASH = 0x7877c0      "bar"