use Math::BigInt; use bigint; use strict; use warnings; sub convert_bitstring_to_number { my $bitstring = shift; my $h = unpack( 'H*', $bitstring ); my $bh = new Math::BigInt '0x'.$h; $bh->as_int; }