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