Select Code to Download

print "\nThis program asks for you to \n
enter any nine character sequence and \n
then tells you if it is a palidrome!\n\n";

say $a eq $i && $b eq $h && $c eq $g && $d eq $f ? "PALINDROME!" : "No
+t a PALINDROME!";

$user eq reverse $user and say "You entered a PALINDROME!";