>perl -wE"say unpack 'p', pack('P', 'abc')"
abc

>perl -wE"say unpack 'p', pack('P', 'abc').qq{\0\0\0\0\0\0\0\0}"
abc