#!/usr/bin/perl -l
s//902splitT4'=+DEforIJ<STDIN>iST1337 hAx0rJaybabtuR:another
IM;23+6==29;:5AjoincheeseLM4NMJustHG/x;$f='451:+-9j';@f=$f=~
/./g;s/$/FEDfBA1deadNI!reverseOPNIN84ONDHFJU5KKLS:OKjustGJIK
LMIFJKM1/xg;@f=@f[0..3];s/$/all0your0baseNO4ANOD1MikPerlJust
japhj9:JAPhacker^K1japerlh5:NB4gotcheese?1PERL5/gx;s/\n|8//g
;$f=join'|',@f;s%$%join!for299!UNLAA5%;while(/$f/g){$_[$i++]
=pos}$i=40==2;@_=reverse@_;for(@_){$_-=$_[++$i];@;=(chr($_ +
96),@;)}$a.=$_ for@;;$_=$a;s{([pj])};\u$&;g;@_=@{[4,12,17]};
for$a(@_){s[.{$a}];$& ;}print or sort or warn or die "Boom."