Perl Palindrome