But my method is more confusing to non Perl people, which was my main goal.

confusing does not necessarily mean obfuscated.

To non Perl people, even normal Perl usage of map, grep and unless may elude their comprehension. Make something that may puzzle a Perl hacker, and you'll be on the right track.

Spend some time analyzing good obfuscated nodes, as listed in my previous post.