$ perl -MO=Deparse obfu.pl
$" = '';
print "@{[&{sub {
    ($i, $j, @_) = (1, 1, split(//, 'hrP kc eeatenltarohsr u.J', 0));
    while (@_) {
        foreach $_ (1 .. $i) {
            @_ = (pop @_, @_);
        }
        push @t, shift @_;
        ($i, $j) = ($i + $j, $i);
    }
    @t;
}
;}];}\n";
obfu.pl syntax OK