$b1=0b_10101010;
#$b2=0b_01010101;

$B1=pack("C",85);
$B2=pack("C",170);
$B3=pack("C",0);

printf "%b\n",$b1;

printf "%b\n",$B1;
printf "%b\n",$B2;
printf "%b\n",$B3;