$|++;$.=25;@$=a..z;$a++for 1..$.;*_=sub{select$l,$l,$l, '0.0'.shift;print"\b"};$^=sub{_(7)for 1..5;map{_(0)}1.. $a;map{print' '}1..$a;map{_(0)}1..$a};map{if(/\s+|\./){$^ ->();$c=0}else{map{print$$[int rand(@$)];_(4)}split'',$. ;$c++;print}}split '','Just another Perl Hacker '
In reply to dynamic && !obfuscated by sh1tn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |