Select Code to Download

my $f = unpack('N',  pack('B32', "01000010001111000000000000000000")) 
+;

...

  return $s * ($f & 0xFF_FFFF) * (2 ** $e) ;
} ;

my $f = unpack('N',  pack('B32', "01000010001111000000000000000000")) 
+;

...

  return $s * (($f & 0x7F_FFFF) | 0x80_0000) * (2 ** $e) ;
} ;