Although I don't consider myself as a "Perl hacker", I
learned a lot from deobfusicating and writing several JAPHs
myself.
This is the first one I consider post-worthy.
I hope you agree and it doesn't take you a wink of an eye
to figure this one out. Any suggestions for improvements?
print+sub{&{shift@@}->(@@=shift,newbie,Perl,another,confused,Just)}->(
+sub{m
{.}&&$@=~s{$}{@{[shift]}$"}||s{}{@{[shift^"@"x6]}},sub{$#_-m{.}&&&{shi
+ft@@}
->(@@=splice@_,$#,$#_)||$@=~s{@{[shift@@]}$"}{@{["$_*"^$&]}}&&$@}},FD.
+TILW)
Enjoy!