You call this obfuscation?
You make not use of context, you explicitely use
$_, @_, you never even try to hide
something... It's so clear, you just read it and understand
the whole thing!
I showed it to a non-Perl programmer, explaining what
split, etc did... I mean, we didn't even need
to run the stuff to know what it did and how!
Having all lines of the same length is not enough to
qualify, in my view... Except if you lines are 4
characters long.
Update:
So that people stop downvoting me, here my shorter (but not
more obfuscated) version:
print+map{pack'H*'
,$_}('4a7573742041
6e6f74686572205065
726c204861636b6572
0a0d'=~m/(..)/g)
It doesn't read its own source code, makes use of the
fact that . doesn't match newlines, chains everything
in one statement, etc... |