in reply to Re^2: Perl Python Partial Polyglot
in thread Perl Python Partial Polyglot

I guess ref() would be pretty similar.

perl -e 'print @{[split //,ref(\$.)]}[-1,-2,0,1,-2,-3]'

[download]

In Section Obfuscated Code