Select Code to Download

sub _{q{%-2L9^!F.Q&4B5B+/7C*3C6 1B' (C,08 # $) "}}sub O{chr$.}$.
=($|||=!$!^$.)^33,;print@@if map{$%=-33+ord substr&_,$_;$->$%?$.
++:$%<1<<2<<3?$@[$%]=O:($.+=$%-31)}0..length _