% perl -MDevel::Peek
$x = "japhy";
Dump($x);
$x =~ s/\C//;
Dump($x);
__END__
SV = PV(0x814ce90) at 0x81603ac
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x815d008 "japhy"\0
  CUR = 5
  LEN = 6
SV = PVIV(0x814d2a0) at 0x81603ac
  REFCNT = 1
  FLAGS = (POK,OOK,pPOK)
  IV = 1  (OFFSET)
  PV = 0x815d009 ( "j" . ) "aphy"\0
  CUR = 4
  LEN = 5