my $var = 2; 
  my $exp = 0xd8000000; 
  $var ^= $exp;