This is my first attempt at obfuscated code. It's not incredibly obfuscated, tbh, but I was satisfied with it the way it turned out. Note that while it doesn't run "in place" in a DOS/Windows environment (and maybe others), you should at least be able to see what it's doing

@s=split//,'Just another Perl hacker,   ';@t=(.1);while(t){$"="";@l=(&
+s
(2)."@s[2..5]   "."@s[19,18,17,16]",' '.$s[1].&s(4).$s[6].&s(1).$s[20]
+.
&s(4).$s[15],$s[0].&s(6).$s[7].&s(6).$s[14],' '.$s[27].&s(4).$s[22].' 
+'
.$s[8].&s(4).$s[13],&s(2)."@s[26,25,24,23]".&s(3)."@s[9..12]");$"="\n"
+;
print"@l\n\e[5A\r";select$t,$t,$t,$t[0];push@s,shift@s}sub s{' 'x$_[0]
+}
[download]

Hope you enjoy!