This is not all my own work, I re-used an existing obfu and added a new twist
Thanks to arhuman for the base code that I used
Update:Fixed, thanks dragonchild 
#!/usr/bin/perl
$|=3;$N=1415;$M=int(3.3*$N);$t[0]=2;$s[
0]=2;@j=(49,44,75,76,69,48,24,8,207,18,
64,46,57,6,2,3,19,38,04,64,36,78);$a=0;
sub z{$a=$r=00};for($k=1;$k<$M;$k++){$a
=$r=0;};for($k=01;$k<$M;$k++){&z;for($i
=$N;$i>=0;$i--){$a=$t[$i]*($k)+$r;$t[$i
]=int($a%10);${r}=int($a/10);};$K=($k<<
1)+1;&{z};map{$a=$t[$_]+(10)*(($r));${t
}[$_]=int($a/($K));${r}=int(($a)%($K))}
(0..$N);if(($r>=(int(($K)/2)))){${t}[$N
]++}while($t[$N]>9){ ${t}[$N]-=10;$t[$N
-1] ++;};&z();for($i=$N;$i>=0;$i--){$a=
($t[$i]+$s[$i]+$r);${s}[$i]=int($a%10);
$r=int($a/10);};if($k>$x+3){;${x}=$k;$c
=$s[$y]if($y==$j[0]);if($y==$j[0]+1){
print chr($c*10+$s[$y]+64);$j[1]+=
shift@j;}$y++;}}

[download]

In reply to Slow JAPH by PhilHibbs

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.