So if you wanted to be straightforward, you could always define %_ like this:
%_ = ( 's' => '... The big YAPC::Europe banner ...', 't' => "smrfnexi--tjfillx ybvwvngwr ;-)\r", 'udy' => '', '' => "\n ____ ___ ___ _ ", '..(substr($y[&a],&p,1)=chr 97+(ord(substr$y[&a],&p,1)+' => "\n (___ \\ / _ \\_/ _ \\/ | ", q<$c='( +)';s/(key)|eval/$1?"value":""/eg;*y=[split/(\\W+> => "\n __) | | | | | | | | ", 'c())%26)}sub p{$y%length$y[&a]}sub a{$p%3*2}print"\\n";' => "\n __/ __/| | | | | | | | ", '){print@y if(select($/,$,,$<,.1*rand)||($y+=$p+++&c)).' => "\n(__)/___| |_| | |_| | | ", ')/,$_{t}];($_=eval)=~y/\\n//d;sub c{length};for(split$c' => "\n (_____(_)___(_)___/|_| " );
Copyright © 2000-2001, Philippe "BooK" Bruhat.