#!/usr/bin/perl -wT use strict;use Safe;(my$s=new Safe)->permit(qw/rand sort entereval/);@_{s=>'t' }=(< < | | / /__\ \| |__/ / | \__/ \__/ 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=[split/(\W+ __) | | | | | | | | c())%26)}sub p{$y%length$y[&a]}sub a{$p%3*2}print"\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%_')