This one was also gathering dust on my hard drive. I think I whipped up quite a few at once several months ago, but didn't want to rapid-fire them into Obfuscated Code. (Note, monks with dust allergies are safe to run this code ;-)

#!/usr/bin/perl

sub'_{ $_[ 0]=~s *_* *g&&$_[0]}$\=",";sub'__{$_[0]=~m *$/$/$/*;eval
"sub'".$1.$2."{'".$3."'}";\&{"$1$2"}}$/=q*(\w)*;map{$#{$_}?$#{$_}++
&& __$ _:'' ;$#.=&{__$_}}qw*TAJ YOu hIs yet _2_ Spa zEn Tao NOt ugh
sue her _1_ VIP the far Url _0_ hah aha sIc aCk Ace fur* ;print _$#
[download]

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]