Arctangential

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.

This entry was posted on Thursday, April 1st, 2004 at 7:14 pm and is filed under Explaining. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.