updates removed: my updates (which I have removed from this post) didn't work!

@_=@l=sort{rand cmp rand}@_;join('',reverse@l)eq(join'',map{map{chop}@
+l}@l)?@_:&Z #81
[download]

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"