$_="C,9++xS5!+5!+xS0%/x+++5!S+x755!S+x";s#[^x]#-21+ord$&#eg;s#.#00$&#g;;
s#0x#40x#g;$a='map{$d=0;s#...#($d++%2?$":1)x$&#eg}@z=split/x/,"072x'.$_.
q`051";$a="\$a=q\x60$a\x60;".'$a=~s#\s##g;eval$a';{$_=$a;($z=join$/,map{
s#.##;$_.=$&}@z)=~s#1#s/.//;$&#eg;print"\ec$z$/";9x1e7;redo}`;eval$a