use Math::BigInt;
sub dec2bin{
    my $i = new Math::BigInt shift;
    $i&&dec2bin($i/65536).sprintf"%016b",$i%65536;
}
print dec2bin('123 456 789 123 456 789');
[download]