http://www.perlmonks.org?node_id=1012795


in reply to built in function for binary division

Do you mean something like the following?

use strict;
use warnings;

my $quotient = 0b10010110 / 0b1111;    # 150 / 15
print sprintf '%b', $quotient;         # prints 1010 (decimal 10)

[download]

In Section Seekers of Perl Wisdom