Not realy obfu but kinda messy :)

*AUTOLOAD = *_;
($\, $") = ($", $\);
sub j { join  '', @_}; sub a { split '', shift;}; sub p { reverse @_ }
+; sub h { j( reverse( &a(shift)))};
sub _ { print shift; _(p(@_)) if @_;}
im(j(j => u => s => t) => "@{[a(perl => is => fun)]}" => "@{[p(r => e 
+=> k => c => a => 'h')]}"  => h('rehtona'));
[download]

I did mangae to get JAPH in there three times and stretch my knowledge a bit. Thanks pete for the autoload idea.