$num1=Math::BigInt->new("0x".$source);

##</code><code>##

       Input
         Input values to these routines may be either Math::Big-
         Int objects or strings of the form
         "/^[+-]?[\d]+\.?[\d]*E?[+-]?[\d]*$/".