This is a bit more convoluted that my last one.sub :::::: {$x=sub {$z={};$b="$N{";$_="$x$y$z$w\n";}; $y=[a..z,$w=\$z,[0..9,2..3]]}Izwq(Qo}fi|z0Xdad(Xr`jis &$x;s/(?<=\(.)(.*?\))//g;$c=length($b);$_=($b&"\340"x $c)|(($_^$b)&"\037"x$c);$_.="\n";} &::::::;print;
In reply to Lets try and tie everything in knots by UnderMine
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |