obfuscated
chargrill
<p>I was going for something else, but thought this was fun, so here it is:</p>
<code>
#!/usr/bin/perl
* _=\ $#; $#=$ ^F+$ ^F*$ ^F**$ ^F;
s "$_" 'Just another Perl hacker,'
. pack c, $# "exs; print time
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-474411">
<br><br>
--chargrill
<hr>
<font size=2>
<code>$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse split//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^$$C[$%++]}</code>
</font>
</div></div>