tac|rev|perl

[BooK]

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.