For those curious about this:
http://www.thinkgeek.com/stuff/41/tshirt.shtml
I give you:
for (my $x =
'0100100100100000011100110110100001101111011100000111000001100101' .
'0110010000100000011000010111010000100000010101000110100001101001' .
'0110111001101011010001110110010101100101011010110010000001101111' .
'0110111000100000010000010111000001110010011010010110110000100000' .
'0100011001101111011011110110110001110011001000000100010001100001' .
'0111100100101100001000000110000101101110011001000010000001100001' .
'0110110001101100001000000100100100100000011001110110111101110100' .
'0010000001110111011000010111001100100000011101000110100001101001' .
'0111001100100000011011000110111101110101011100110111100100100000' .
'011100110110100001101001011100100111010000100001';
$x =~ s/.{8}//; eval("print chr 0b$&")){} print "\n";
Just run it in your favorite perl interpreter and it’ll print out the “super secret hidden message”.
And yes, I did type in all those numbers and no, it didn’t take very long. Got it right on the first try too.