Select Code to Download

$_="10101010000011110101000101001110110010100111";

...
for split /(....)/;         #do this for all 4 digits
                            #in $_
print $a, "\n";

$_="10101010000011110101000101001110110010100111";
(reverse,s/(.)(.)(.)(.)/$a+=2**($_-1)if$$_/ee for 1..4 &&
         s/1(?=\d)// && y/0-5/a-f/)  for split /(....)/;
print $a, "\n";