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));
What it does: It prints out "just another perl hacker" with random capitalization of letters.
It runs under both strict and warnings.
Edit by tye, added newline to code so it wraps.
|
|---|