obfuscated
Felonious
<code>
#!/usr/bin/perl -w
use strict;
(
sub {
print map {
$_->()
} @_[3,1,2,0,4];
}
)->(
sub { no strict;q;read!; },
sub {
(
sub {
map {
$_->()
} @_[2,1,0]
}
)->(
sub { 't ' },
sub {
(
sub {
$_[0]->(), 's'
}
)->(
sub { 'u' }
)
},
sub { 't', 'r' }
)
},
sub {
(
sub {
map { $_->(), " " } @_;
}
)->(
sub {
lc ref
sub {
'', reverse 'J A P H !'
}
},
sub {
++($_="yot")
},
sub {
(
sub {
@_[1,4,3,6,2,5,0];
}
)->(
split('',"thnva'e")
)
}
)
},
sub {
(
sub {
map {
$_->()
} @_[1,0]
}
)->(
sub {
(
sub {
$_[0]->(), q;'t ;
}
)->(
sub { 'n' }
)
},
sub { no strict; Do }
)
},
sub { $/ }
)
</code>
<br>
[TINPC@perlcabal.com shh]$ <a href='http://www.perlcabal.com/real.html'>su</a> real