use Devel::Peek;
$c = " 2 "; Dump $c;
$c++; Dump $c;
$c+= 0.141592653; Dump $c;
__END__
SV = PV(0x13f85f0) at 0x17c2de8
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x17e5820 " 2 "\0
  CUR = 3
  LEN = 16
SV = PVIV(0x1171478) at 0x17c2de8
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 3
  PV = 0x17e5820 " 2 "\0
  CUR = 3
  LEN = 16
SV = PVNV(0x17ba4d0) at 0x17c2de8
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  IV = 3
  NV = 3.141592653
  PV = 0x17e5820 " 2 "\0
  CUR = 3
  LEN = 16