The other YAPC::Europe T-shirt

[BooK]

This code will appear on the other YAPC::Europe shirt. I don't know much more, not even the shirt's color (hope it's not orange).

#!/usr/bin/perl -wT
use strict;use Safe;(my$s=new Safe)->permit(qw/rand sort entereval/);@
+_{s=>'t'
}=(<<Orange,"smrfnexi--tjfillx ybvwvngwr ;-)\r");%_=(%_,split(/(\n^.{2
+4})/m,q[
____    ____   ____     _________ ________                          _
\   \  /   /  /    \   |         V        \ Hogeschool Holland     | |
+  __  __
 \   \/   /  /      \  |     __   \   ____/ __   __   Amsterdam   / __
+) \ \/ /
  \      /  /   /\   \ |    |  \   | /     /  \ /  \ Netherlands  \__ 
+\  >  <
   |    |  /   /__\   \|    |__/  / |      \__/ \__/ August 2-4   (   
+/ /_/\_\
 __|____|_/   ______   \     ____/   \____  __   __     2001      _|_|
+  __  __
|         \  /      \   \   |   \         \/  \ /  \             / __ 
+\ \ \/ /
|   ______/_/    __ _\___\__|____\________/\__/_\__/    ----    / / _`
+ | >  <
|       \ |  |  |  |  V   V  __  \ |   ___ \/  __ \             \ \__,
+_|/_/\_\
|    ___/ |  |  |  |   ___/ /  \  \|  |___) ) /__) )  Coded by   \___/
+_ __  __
|   |_____|  |__|  |  | |  |    |  |   ____/  ____/   Philippe   (_)/ 
+/ \ \/ /
|         \        |  |  \  \__/  /|  |    \      \    "BooK"      / /
+_  >  <
|_________/\____,__|__|   \______/ |__|     \_____/    Bruhat     /_/(
+_)/_/\_\
Orange
   ____   ___   ___  _  ..(substr($y[&a],&p,1)=chr 97+(ord(substr$y[&a
+],&p,1)+
  (___ \ / _ \_/ _ \/ | $c='( +)';s/(key)|eval/$1?"value":""/eg;*y=[sp
+lit/(\W+
    __) | | | | | | | | c())%26)}sub p{$y%length$y[&a]}sub a{$p%3*2}pr
+int"\n";
 __/ __/| | | | | | | | ){print@y if(select($/,$,,$<,.1*rand)||($y+=$p
++++&c)).
(__)/___| |_| | |_| | | )/,$_{t}];($_=eval)=~y/\n//d;sub c{length};for
+(split$c
 (_____(_)___(_)___/|_| udy]),'');$|++;$s->reval($_='eval join"",sort+
+keys%_')

The code will be explained in my lightning talk, at YAPC::Europe 2001. The T-shirt will be on sale exclusively at Y::E in Amsterdam.

Update: The shirt will be black, code in white.

[blueflashlight]

I could spend 10,000 years doing nothing but perl programming, and I don't think that I could ever come up with something that cool.

[Beatnik]

Well, then you'll just have to buy the shirt to fake it :))

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.