Select Code to Download

my @xored = map { ord } split //, $str1 ^ $str2;

my @anded = map { ord } split //, $str1 & $str2;

use Bit::Vector;

...
print gen_xor('10011', '01110'), "\n";
print gen_and('10011', '01110'), "\n";