use warnings;
use strict;
use Math::BigInt;
use Devel::Peek;

my $x = Math::BigInt->new(42);

Dump $x; # Shows that $x is a
         # Math::BigInt object

print "\n ########\n ########\n\n";

$x = "$x" + 0;

Dump $x; # Shows that $x is
         # a normal integer