add obfuscated Perl implementation