or download this
perl -e'@T=map{ord}split//,"Just Another Perl Hacker...";for(@T){push
@C,32+int rand 100}for(;;){$s=S(@C)||last;$r=rand 27;$c=rand>0.5?1:-1;
$C[$r]+=$c;$n=S(@C);$C[$r]+=($n==$s+1?1:2)*-$c if$n>$s;print map({chr}
@C),"\n"}sub S{$t=0;for(0..27){$v=$_[$_]-$T[$_];$t+=($v>0?$v:-$v)}$t}'