obfuscated BooK <P>[Kickstart] said something about <tt>s$x$y$g</tt> in the CB, and palindromes quickly became the topic (I guess my talking about <tt>y$x$y$</tt> didn't help).</P> <P>Anyway, here is my first try at a piece of code you can run through <tt>perl</tt> or <tt>tac|rev|perl</tt>... It's not symmetrical, and it does different (and rather poor) stuff each time. Call it proof of concept... and enjoy.</P> <code>;;sub a;q;;;$_=a $;=$y=x;$x=y;;;; y$x,$y$;qq tnirp ;,mit;print,q;}{ _ bus;;sub a{$_[ 0].$/}s q;/q\/q; </code> <P><b>P.S.:</b> This seems to have [B::Deparse] enter an [id://58799|infinite loop] if you try to deparse the script.</P>