Select Code to Download

$a = ord $/;
$b = $a - 9;
...
}

print chr for @o;

for(
    '01110011111100111000011100',
...
}

print chr for @o;

sub increment_pos {
    my ($bitstring, $inc) = @_;
...
increment_pos('10000000010100010000100100' => 1);

print chr for @o;