> perl -de 0
[...]
  DB<1> x pack("C","65")
0  'A'
  DB<2> x unpack("C*","\0\cA A") # yields ("0","1","32","65")
0  0
1  1
2  32
3  65
  DB<3> x pack("n","1")
0  "\c@\cA"