Apparently my first entry here inspired newrisedesigns to write For What It's Worth, Buffalo Springfield style. So, his node further inspired me. Positive feedback loops are a good thing. :-)

#!/usr/bin/perl
$_=join "\n",q[S@XAEDPCHNMIAXOEDCBN&6G6QX#CQZ66F],q[A#NZ  CQICOLCY&UDV
+CG]
.q[@6Y      UT6CSRB      MRJ  ],q[Z  R  M  VVDTCNCOSZ  C#Q      S@]
.q[  CBCQW#CSGYV  CAXII&F        ],q[  #  EUV      OEDC  VRC#CQG  HNMC
+II]
.q[U    &VVJ],q[M    C#NAZ  GCQSD  O  C  Y    @O6CAZCQ      ZPE      F
+],,
q[YVLFC  TNSTDXCA9WY  CYG  N@XF]  ,  ,  q[YQV    HSBQ  ARCU  R  B@CP  
+@].
      q[BO  D      BCMS@WA    C  W  T  #      EJ];THAT    ;WAS;    ;EA
+SY;
s/\x20//g;$K="justanotherperlhacker";;;tr(#@STEPHNILAYOUG&96BMWVXZRQDF
+JC)
(a-z',. /);$m=$_;@:=(a..z);%:=map{($:[$_],$_)}0..5**2;@k=map{-$:{lc()}
+}$K
=~/([\x61-\x7a])/g;while($m=~/(.)/sg){$c=$1;if($c=~/[a-z]/i){$N=$:[($:
+{$c
}+$k[$i])%@:];$R.=$N;$i=($i+1)%@k;}else{$R.=$c}}print$R;#ForWhatIt'sWo
+rth
[download]

This is the first obfu I've ever written with purposefully formatted code. Sorry if it is rough around the edges and a little transparent in places. I should really be finishing a script for my employer rather than doing this... Maybe I'll clean it up later.

Update: Fixed an error.

-sauoq
"My two cents aren't worth a dime.";