print "Type a word or phrase: ";
$line = <STDIN>;
    
$line =~ s/\W//g; # removes space and nonalphanumerics        
$line =~ tr/A-Z/a-z/;  # converts to lowercase.


@letters = split //, $line;
$reverse = join "", reverse @letters;
# gets the letter and reverse it


if(@letters == 1){
	print "One letter palindrome, trivial!\n";
    }
elsif($reverse eq $line){
	print "This is a palindrome.\n";
    }
else{
	print "Not a palindrome.\n";
    }