Select Code to Download

$_="C,9++xS8+5!+xS5!+5!+xS0%/x+++5!S+x755!S+x";s#[^x]#-21+ord$&#eg;s#.
+#0
0$&#g;s#0x#40x#g;$a='$_="072x'.$_.q`072";$a="\$a=q\x60$a\x60;".'$a=~s#
+\s
##g;eval$a';@z=map{$d=0;s#...#($d=!$d|0)x$&#eg;$_=[split//]}split/x/;{
+$b
=reverse$a;print"\ec";map{print$_?chop$b:$"for@$_;print$/;push@$_,shif
+t@
$_}@z;select$q,$q,$q,.05;redo}`;$a=~s#\s##g;eval$a

$a=q`$a="\$a=q".($t=chr(96)).$a.$t.';$a=~s#\s##g;eval$a#';$_="73x05100
+50
...
{print$_?(chop$b):$"}print$/;$_=[@$_[0],@$_[70],@$_[1..69],@$_[71]];}@
+z;
select$q,$q,$q,.05;redo}`;$a=~s#\s##g;eval$a##########################
+##