>perl -e "use Devel::Peek; $x="Infinity"; Dump($x); $x=Infinity; Dump($x)"
SV = PV(0x22612c) at 0x226000
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x182cb54 "Infinity"\0
  CUR = 8
  LEN = 12
SV = PV(0x22612c) at 0x226000
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x182cb54 "Infinity"\0
  CUR = 8
  LEN = 12

>perl -e "use Devel::Peek; $x="-Infinity"; Dump($x); $x=-Infinity; Dump($x)"
SV = PV(0x226150) at 0x226000
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x1835404 "-Infinity"\0
  CUR = 9
  LEN = 12
SV = PV(0x226150) at 0x226000
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x1835404 "-Infinity"\0
  CUR = 9
  LEN = 12