Perl has bitwise ops & and |. See the list of bitwise ops in perlop.

BCD can be ginned up with vec and split //.