Help for this page
$-=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;
www.com | www.net | www.org
No recent polls found