use Math::BigRat;
my $num = Math::BigRat->new(1571564245790041077296625940243395969525186964287593983211702071746502379495623702577);
my $num2 = Math::BigRat->new('1571564245790041077296625940243395969525186964287593983211702071746502379495623702577');
print "Numeric: $num\n";
print "Stringy: $num2\n";


##</code><code>##

c:\>perl test.pl
Numeric: 1571564245790040000000000000000000000000000000000000000000000000000000000000000000000
Stringy: 1571564245790041077296625940243395969525186964287593983211702071746502379495623702577
c:\>_