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.";

In reply to FWIW II by sauoq

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.