sub Z{
@_=@l=sort{.5<=>rand}@_;join('',reverse@l)eq(join'',map{map{chop}@l}@l)?@_:&Z
}

##</code><code>##

sub Z{
@_=@l=map{splice@_,rand@_,1}@_;join('',reverse@l)eq(join'',map{map{chop}@l}@l)?@_:Z(@_)
}

##</code><code>##

sub Z{
for(;;){@_=@l=map{splice@_,rand@_,1}@_;return@_ if join('',reverse@l)eq join'',map{map{chop}@l}@l}
}

##</code><code>##

sub Z{
for(;;){@l=map{splice@_,rand@_,1}@_;@_=@l;return@_ if join('',reverse@l)eq join'',map{map{chop}@l}@l}
}

##</code><code>##

my @ar = qw/NEAR LANE EARS AREA/ ;
# @ar = qw/LINGO MILLS SMOCK IDIOM LOGIC/;

print "$_\n" for Z(@ar);

sub Z{
while(1){@l=map{splice@_,rand@_,1}@_;@_=@l;return@_ if join('',reverse@l)eq join'',map{map{chop}@l}@l}
}