sub tune { my $l = ""; map {$l=$_ if ($_ eq reverse $_)&&(length $l