$ perl -MDP -wE'DDump Data::Peek::triplevar"\x{03c0}",3,3.14159265'
SV = PVNV(0x8760c9c) at 0x817d0a4
  REFCNT = 1
  FLAGS = (IOK,NOK,POK,pIOK,pNOK,pPOK,UTF8)
  IV = 3
  NV = 3.14159265
  PV = 0x818bdf0 "\317\200"\0 [UTF8 "\x{3c0}"]
  CUR = 2
  LEN = 12
$