I rewrote this one from a classic obfu, but hey look for my open call
;-)
sub dec{local$/=$ARGV[$_]x4,$_[0]=~s#$ARGV[$_-1]#$/#g,for(1..3);$_[0]}
#{<:}{::}}-{<<<:}-{<<<}}}-{<<<:-<<-{<<}-{<<:::}}-{<<:::}}}-{<<<:-{<<::
+-{<<:}-{<<<}}-<<-{<-{<<:}-{<<<}}-{<<:::-<<-{::-{<<}-{<<}}}-{<<::}}}-{
+<<:}-{<<<}}-:::}-::}}
eval'$_=\'{<:}{<<:::}}}-{<<<-{<<:}-{<<:::}}-<<-<<:-{<<:}}-{<<::-<<:::-
+<<:-<<<-::}}\';'.$cmd.';eval join//,@o;reset"o";eval$cmd while<$fh>;p
+rint join//,@o'if$cmd='@ARGV=/^#?(\{)(\<)(\:)(\})(.*)$/and$_=pop@{ARG
+V}and do{eval{push@o,chr length&dec($_)for(split)}for(split("-"))}';