sub palindrome{
my $x=shift;
my $prev=0;
while ($x=~/(([a-z0-9]+)[a-z0-9]?(??{reverse $2}))/gi)
{
	$max=$1 if (length($1)>$prev);
	$prev=length $max;
}
$max
}