http://qs1969.pair.com?node_id=595385

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 _$#


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