in reply to Getting the PV pointer from a SV

Use pack 'p'

use Devel::Peek;;

$s = 'Hello, world!';;

Dump $s;;
SV = PV(0x25c0b0) at 0x3d71b48
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x3d5e908 "Hello, world!"\0
  CUR = 13
  LEN = 16

print unpack 'V', pack 'p', $s;;
64350472

printf "%x\n", unpack 'V', pack 'p', $s;;
3d5e908

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
In the absence of evidence, opinion is indistinguishable from prejudice.

In Section Seekers of Perl Wisdom