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";

##</code><code>##

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

##</code><code>##

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