http://qs1969.pair.com?node_id=933656

print unpack "(C/(xx)X220a)26", pack "a366", "qsoultoJk ontalPykvhscktkol,r few ues\nrenrnlhaarchkrb"

Update 2013-05-24: see Re: how to unpack a C struct with length array preceding data array.

Replies are listed 'Best First'.
Re: Just another unpack hacker
by ambrus (Abbot) on Oct 25, 2011 at 17:05 UTC

    Re: my fisrt japh with the unpack function claims this is not obfuscated code.

    Update: To be fair, at the time he posted that comment, the unpack function in the latest stable release of perl did not yet support parentheses in the template, so you couldn't have written this kind of japh so easily.

Re: Just another unpack hacker
by mtve (Deacon) on Oct 27, 2011 at 15:24 UTC

    very nice!

    a variant:

    print unpack'h/xaX'x26,'y______a_cJu_ke__s__rt_, _ a_not____h________e_____r__ Pe_____r__l h_'x2