$-=80;$;="Just another Perl hacker";$==$|++;$---;while
($->length$;){$=+=(-3.2+rand 7)*rand 6;if($=>$--2-length
){$==$--2-length}elsif($=<$,){$==$,}if($.&&$===($--2-length
)){$_=$..$_;$.=$,;$%=$]if!$;}select$,,$,,$,,0.03;if(!$.&&$=<(
$--length)*.6){$.=chop$;;if($.eq$"){$_=$..$_;$.=chop$;}$~=$*=$,}
if($=>$~){$~=$=;$*=$,}elsif($~-1>$=&&$*>10){$~--}$*++;print"\b"x$-,
':'x$=,$"x($~-$=),$.?$.:$",$"x($--$~-1-length$_),$_,$%?$/:$,;$%&&last}

##</code><code>##

use japh; print;