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