Having been amazed at all of the ASCII Obfuscations, I decided to try one for myself. 

@f=(22,52,0,13,5,1,160,2,2,125,53,3);@d=(15,17,19,21    );sub A{map{
($a,$b,$c,@f)=@f;$o=!$c?$a+$b:$c==1?$a*$b:$c==2?    $a/$b:$a-$b;$j[$
m++]=chr$o}@f}sub B{$g=pop;$c=$h{$g};$i=$r{$    g};$B='a';map{@{$i->
{$_}} = reverse @{$i->{$_}} if $c->{$B++    }!=$i->{$_}[0]} qw/v V/}
sub C{$g=pop;$c=$h{$g};$Z=$c->{a};$Y    =$c->{b};$S=$c->{c};$R=$c->{
d};$s=abs$R-$Y>abs$S-$Z;($Z,$Y,$    R,$S)=($Y,$Z,$S,$R)if$s;($S,$Z,$
R,$Y)=($Z,$S,$Y,$R)if$Z>$S;$    l=$S-$Z;$n=abs$R-$Y;$Q=0;$y=$Y;$P=($
Y<$R)?1:-1;;$O=-1; ;map{$    O++;$r{$g}->{v}[$O]=($s)?$y:$_;$r{$g}->
{V}[$O]= ($s)?$_:$y;;$    Q+=$n;if(2*$Q>=$l) {$y+=$P;$Q-=$l}}$Z..$S}
sub D{($N,$k,$M,$L,    $K)=@_;map{$J=$L==$d[$_]}0..$K-1if($K&&$M==12
);$J||print"\e["    ."$M;${L}H\e[${k}m$N\e[m";}$|=print "\e[H\e[J";A
;map {$*=int     rand 50;$,=int rand 24;$h{$j[$_]}={};$"=$h{$j[$_]};
$"->{a}=$    *;$"->{b}=$,;$"->{k}=101+$_;$"->{c}=$d[$_];$"->{d}=12;;
$"->{I    }=$j[$_]}0..3;map{C$j[$_];;B$j[$_]}(0..$#j);@q=@{$r{$j[0]}
->    {v}};@u=@{$r{$j[0]}->{V}};;map{$H=$h{$j[$_]};@q=@{$r{$j[$_]}->
{v}};;@u= @{$r{$j[$_]}-> {V}};$F=$_;;map {D" ",0,$H->{b},$H->{a},$F;
$H->{a}=$q[$_];;$H->{b}=$u[$_];D$H->{I},$H->{k},$H->{b},$H->{a}, $F;
select$G,$G,$G,.05}0..$#q;$_=$F}0..$#j;print "\e[30;1H" #by wulvrine

[download]

I look forward to the comments and suggestions but please be gentle as this is my first 'real' obfuscation.
(My first obfu was my signature which doesn't really count.)

I am using this algorithm for movement.

s&&VALKYRIE &&& print $_^q|!4 =+;' *|

In reply to Getting from here to there by wulvrine

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.