$ perl586 -MDevel::Peek -e'Dump "\x{2400}"'
SV = PV(0x8181f00) at 0x816e234
  REFCNT = 1
  FLAGS = (POK,READONLY,pPOK,UTF8)
  PV = 0x817c268 "\342\220\200"\0 [UTF8 "\x{2400}"]
  CUR = 3
  LEN = 4