perl -MDevel::Peek -e 'Dump "inf" + 1';

##</code><code>##

SV = NV(0x...) at 0x....
  REFCNT = 1
  FLAGS = (NOK,READONLY,pNOK)
  NV = inf

##</code><code>##

C:\>perl -MDevel::Peek -e "Dump '1.#INF' + 1"
SV = IV(0x218fe28) at 0x218fe2c
  REFCNT = 1
  FLAGS = (PADTMP,IOK,READONLY,pIOK)
  IV = 2