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