in reply to reftype obfu -- oneliner

See also Just Another Perl Hacker, where I only used parts of strings returned by ref.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Obfuscated Code