#!/bin/sh
 
echo -n "Enter the Word : "
read word
 
reverse=$(echo $word | rev)
 
if [ "$word" = "$reverse" ]
then
	echo "The given word \"$word\" is Palindrome"
else
	echo "The given word \"$word\" is not a Palindrome"
fi

#!/usr/bin/perl
 
print "Enter the Word : ";
 
#Get Input from user
chomp($word = <>); 
 
#reverse the word
$reverseWord = reverse ($word);
 
#check the reversed word and user input
if ( $reverseWord eq $word )
{
   print "$word is Palindrome\n";
}
else
{
  print "$word is not Palindrome\n";
}

$ echo "MadaM" | perl -lane 'print $_ if(reverse($_) eq $_)';
MadaM
 
$ echo "Test" | perl -lane 'print $_ if(reverse($_) eq $_)';
$