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";
[download]

Hmm, so the program asks for a character sequence, and you end up using numercal equasions. That will yield a whole lot of palidromes (and warnings if you did use warnings)

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

much simpler:

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