Select Code to Download

read() # when reading from a file, or
unpack() # using b or B in the template when reading from a string

$a = $b << 3;

$a = $b >> 2;

$c = $a & $b;

$c = $a | $b;

$c = $a ^ $b;

$hex =~ s/([01]{4})/sprintf("%.1x", eval('0b'.$binary))/eg;