";
$tempwords = explode(" ",$palstring);
$numbwords = count($tempwords);
$revstring= strrev($palstring);
if(strcmp($palstring,$revstring)==0){
if($numbwords == 1){
print "The string is a one word palindrome.";
}
else{
print "The string is a phrase palindrome taking spaces into account.";
}
}
else{
for($counter=0; $counter < $len; $counter++){
if(substr($palstring,$counter,1)==" "){
$palstring = substr_replace($palstring,"",$counter, 1);
}
}
$len = strlen($palstring);
$revstring= strrev($palstring);
if(strcmp($palstring,$revstring)==0){
print "The string is a phrase palindrome when spaces are ignored.";
}
else{
for($counter=0; $counter < $len; $counter++){
if((substr($palstring,$counter,1)==",")||(substr($palstring,$counter,1)==".")||
(substr($palstring,$counter,1)=="!")||(substr($palstring,$counter,1)=="?")||
(substr($palstring,$counter,1)==":")||(substr($palstring,$counter,1)==";")||
(substr($palstring,$counter,1)=="~")||(substr($palstring,$counter,1)=="@")||
(substr($palstring,$counter,1)=="#")||(substr($palstring,$counter,1)=="$")||
(substr($palstring,$counter,1)=="%")||(substr($palstring,$counter,1)=="^")||
(substr($palstring,$counter,1)=="&")||(substr($palstring,$counter,1)=="*")||
(substr($palstring,$counter,1)=="(")||(substr($palstring,$counter,1)==")")||
(substr($palstring,$counter,1)=="_")||(substr($palstring,$counter,1)=="-")||
(substr($palstring,$counter,1)=="+")||(substr($palstring,$counter,1)=="=")||
(substr($palstring,$counter,1)=="{")||(substr($palstring,$counter,1)=="}")||
(substr($palstring,$counter,1)=="[")||(substr($palstring,$counter,1)=="]")||
(substr($palstring,$counter,1)=="\\")||(substr($palstring,$counter,1)=="|")||
(substr($palstring,$counter,1)=="\"")||(substr($palstring,$counter,1)=="'")||
(substr($palstring,$counter,1)=="<")||(substr($palstring,$counter,1)==">")||
(substr($palstring,$counter,1)=="/")||(substr($palstring,$counter,1)=="`")){
$palstring = substr_replace($palstring,"",$counter, 1);
}
}
$revstring= strrev($palstring);
if(strcmp($palstring,$revstring)==0){
print "The string is a phrase palindrome when spaces and punctuation are ignored.";
}
else{
print "The string is not a palindrome";
}
}
}
print "" ."" ."return to input form" ."
";
}
else{
print<<<_END_HERE_
_END_HERE_;
}
?>
