This probably isn't a heavily obfuscated as others of its ilk (There can be only one!, My 2 cents worth) , and totally wasn't the original direction I was heading with this... but I saw myself writing for loops inside of for loops, and I just couldn't help myself.

#!/usr/bin/perl

$ four=44;$                 fore=$four*$
fore ;for $                 fore(1..$ #4
four){$ for                 ||($ \= pack
'c',$ fore)                 } $ fourteen
=14; $ fjor                 =$ four-$ #4
fourteen ;$                 f=1;$ or=2;$
Or=$ f+$or+                 $ f+$ or; #4
$ foreteen=                 $fourteen- $
or;$ fOr= $                 four+$four -
4 *2;$ a= $                 fior = sub {
return  [ $                 fjor+$four ,
--$ four,-$                 or,$f,-$ fOr
-4,$ fOr -$                 foreteen-$ f
-$ or]};$b=                 $ fore=sub {
return[ --$                 fourteen,$ f
,$ or *$ or                 + $ f,-$ #42
foreteen ,-                 $ f- $ or, $
fourteen]};$c=$fyor=sub{return[-$ fOr-$ or,++$four+4
,($f+$Or)*($f+$or),$fourteen,-$Or,-$fOr+4]};$d=$foer
=sub{return[$ fOr-4-4,-$ Or-$ f,$ or,$ or+$ Or,-$Or,
$fourteen]};for(a..d){if(ref($$_)=~m$AR$){for($$_){$
                            for=$fourten
                            *$fjor;$fore
                            +=$fjor;for(
                            @$_){$for.=$
                            fore;$foor+=
                            $ _ ;$ for.=
                            pack 'a' , $
                            foor}}}else{
                            for($$_){for
                            (@{&{$_}}){$
                            foor+=$ _; $
                            for.=pack'c'
                            ,$ foor} }}}
                            print $  for
[download]

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );
[download]