use Math::BigInt; 
my $big = Math::BigInt->new( "253988569334964066902842206990454963117610523116274484848568321143714323882724980122910689" );

##</code><code>##

my $small = $big->numify;
# OR
my $small = "" . $big;