-------------------------------------------------------------------------------
Examples of Obfuscated Perl

  s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

The above converts 3 sets of 4 characters in: "(q.S:$/9=(T1"
into 3 x 3 character sequences using crypt(): "liverpole"

It would have been created by hashing many many passwords and creating
a table of the resulting hash after the 2 character salt. -- a lot of effort!

-------------------------------------------------------------------------------
Another (older) example by the same author

@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC
READPIPE provides"

Which crypts the 3 given words using the characters / : L
to generate the same set of 3 character sequences.

-------------------------------------------------------------------------------
Using uppercased controls...

print "\u\c*\c5\c3\c4\c`\c!\c.\c/\c4\c(\c%\c2\u\c0\c%\c2\c,\c`\c(\c!c\c+\c%\c2\cJ"
Just another Perl hacker

-------------------------------------------------------------------------------