use Math::BigInt;
$x = Math::BigInt->new("4653896912");
$x->brsft("13");
print $x->bstr;