simple Perl Linguistic Obfuscators