obfuscated BooK <p>This is a little harder to understand... <tt>;-)</tt></p> <code> $|++;$.="Just another Perl hacker ";while(!select $',$&,$`,1/200){(*_,*")=\(substr($.,0,1),substr$. ,1,$,++%27);print+qq'\r$"';$..=chop}#Try 24,25,26 </code>