Select Code to Download

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

use japh; print;