*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'));