$_=$ARGV[0]||die;my$x="$_ is ";$x.="not "if($_ ne
join"",reverse split//);print $x," a palindrome";