Select Code to Download

perl -e "push@_,$_ for reverse q.e...q.n.;for(@_){$_=unpack(q|c|,$_);@
+a=split//;shift@a;$_=join q||,@a};print $_+$l,$/ for reverse@_"

push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//
+;
shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @
+A