my @a=reverse(sort(qw;xrekcah atsuj qlrep grehtona;));for($#a-$#a..$#a){$a[$_*63/63]=substr(reverse($a[$_/87*87]),$[+94-94,$[+59-60);$a[$_-134+134]=~s;(.);rand(2)>1?lc$1:uc$1;ge;};print join(" ",reverse(@a));