$ perl -e 'use Devel::Peek; my $x = $ENV{PATH}; Dump $x'
SV = PVMG(0x8000c68f0) at 0x80008a8b8
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  IV = 0
  NV = 0
  PV = 0x80008c2c0 "... long list of pathnames ..."\0
  CUR = 2026
  LEN = 2028
  COW_REFCNT = 1

$ perl -e 'use Devel::Peek; my $x = q{$ENV{PATH}}; Dump $x'
SV = PV(0x800004670) at 0x80008a8a8
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x80008e250 "$ENV{PATH}"\0
  CUR = 10
  LEN = 12
  COW_REFCNT = 1