Perl> use Devel::Peek;;
Perl> $x = 2**1025;;
Perl> Dump( $x );;
SV = NV(0xb4598) at 0x3d73ee8
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 1.#INF

##</code><code>##

$y = $x / $x;;
Dump $y;;
SV = NV(0xb45a0) at 0x3d6c6a8
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = -1.#IND