$ perl -MDevel::Peek -e'$_="ABCD"; Dump($_);'
  FLAGS = (POK,pPOK)
  PV = 0x81bb060 "ABCD"\0         # Text

$ perl -MDevel::Peek -e'$_=pack("N", 0x41424344); Dump($_);'
  FLAGS = (POK,pPOK)
  PV = 0x9e0a2c8 "ABCD"\0         # Binary