my is_palindrome {length($_[0])<2||substr($_[0],0,1) eq substr($_[0],-1,1)&&is_palindrome(substr($_[0],1,-1);}