my $n = Math::BigInt->new('0x3BFA281009296F2'); my $manufacturer = sprintf "%010s", $n; #### my $manufacturer = sprintf "%010s", Math::BigInt->new('0x3BFA281009296F2');