My primary goal was the effect, not obfuscation.

$|++;$.=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 '
[download]