the secret decoder ring

Apr 02 2004

Surely everyone checked thinkgeek today for April fool’s day specials. And surely, no one could stand not decoding the Magic Supersecret Binary T-Shirt. I know I couldn’t:

#!/usr/bin/perl $/=sub{s/\s//g;pack('B*',$_) .$&};print&{$/}($_=<DATA>); __DATA__ 010010010010000001110011011010000110111 101110000011100000110010101100100001000 000110000101110100001000000101010001101 000011010010110111001101011010001110110 010101100101011010110010000001101111011 011100010000001000001011100000111001001 101001011011000010000001000110011011110 110111101101100011100110010000001000100 011000010111100100101100001000000110000 101101110011001000010000001100001011011 000110110000100000010010010010000001100 111011011110111010000100000011101110110 000101110011001000000111010001101000011 010010111001100100000011011000110111101 110101011100110111100100100000011100110 110100001101001011100100111010000100001