Few variants of no-digits obfu:

#!perl -l
print map chr oct oct oct oct hex,debf,fbbcf,hex hex eaff,adfff;
print map chr oct oct oct oct oct hex,abadf,hex cd,hex ec,ffaef;
print map chr oct oct oct hex,hex hex oct hex bfd,dbbf,fbbbd,ea;
[download]

Update: finally, more fun

The vet's first diagnosis: The poor kitten seems to be erudite, but it should probably try a diet of less theory, and instead actively some play rounds of golf. Cautious use of source filtering may also provide support in refactoring into a lean beast. @_@

Couldn't figure out how to get the #! to work, but it's not really necessary. Uses the open 0 trick, so save it to a file before running

use strict ;my@f; use warnings ;
open 0;$/= \11;my $i= 0; while (
<0>){chop; push@{$f [ $i]},$_;$i
=($i+1)%3} close 0;$~ ="it"; my(
$l,$m,$r)= map{$f[$_] }(0 .. 2);
for(0..$#{ $l}){$m->[ $_]||= '';
$r-> [$_ ] ||=''; #$l }){ $m ->[
format it=                      
@<<<<<<<<< @<<<<<<<<< @<<<<<<<<<
$l-> [$_], $m-> [$_], $r-> [$_],
.                               
write;}
[download]

perl -le'$;=3;$;=~s/./$&?30:3/eg for 3..pop;print length$;' 12
[download]

Can you see how it works?

-- Frank

print(map{chr}(map{$/=$_+$_[$;-!$_];$;=$_?++$;:$_*($/=32);
$/-32*!($.++%13)}map{-46+ord}split//,q,0B>7.';:71!&.62=/.,
),@_[$~..5],44)if$;=$.=$~=0or@_=map{ord}split//,q;hackerz;
[download]

This is my first attempt at obfuscated Perl. It really rubbed me the wrong way to write it, since I'm such a stickler for maintaintable, readable code. I currently use this as my .signature.

perl -le '$"=$,,@_=(1)x4,@a=(0,4,5,4),map{$_<<=6,$_+=13}@_;for(0..
3){$_[$_]+=1<<$a[$_]if$_;$_[$_]+=$a[$_]}$_[3]+=10,print map chr,@_'
[download]

I worked pretty hard on getting it as short and obfuscated as possible. There's a neat trick I used in there with the @a array. It happened to work out mathematically in my favor.

I welcome feedback and/or improvements. :)

UPDATE 9/21/2009

Big UPDATE:

Run this on linux text console only. It won't work in an xterm or similar. (Update:) This looks better if you stand far from the monitor.

clear;perl -we 'ioctl STDIN,19296,$t=pack a8888;while(++$o){select"","
+","",0.01;print"\e[H";for$v(0..19){$x=0.5*$_+3e-2*$v*($_-39)+0.5*$o,p
+rint vec($t,8-$x%9+8*int(0.9*$v+1.5-3e-3*($_-39)**2)+256*ord substr("
+Just another Perl hacker  ",$x/9%26),1)?"#":" "for 0..78;print$/}}'
[download]

This is a reimplementation of a japh I have written and lost long ago. Speed depends on the speed of your computer somewhat.

my $s=' ';say 'N'~&'K','t'~|'a','w'~&'s','v'~&'u',$s,'i'~&'e','l'~|'b'
+,'m'~|'b','p'~|'d','x'~&'i','g'~&'m'~'z'~&'s',$s,'c'~&'v','o'~&'y','p
+'~|'d','v'~|'a','m'~&'y','r'~|'a','d'~|'a',$s,'n'~|'a','c'~&'z','d'~|
+'b','t'~|'a','r'~|'a','b'~|'a','i'~&'c','v'~&'u','k'~&'y','n'~|'a','l
+'~|'b';
[download]