print("Enter the no. to check for Palindrome : ");

$no = <STDIN>;

chop($no);

$i = 0;

# Store into a array

while($no != 0)

{

@array[$i] = $no % 10;

$no = int($no / 10);

$i++;

}

$i--;

$j=0;

$flag = "true";

# Check for Palindrome

while( ($flag eq "true" )&& ( $j < @array/2) ){

if (@array[$j] != @array[$i])

{

$flag = "false"

}

$i--;

$j++;

}

# Print the result

if( $flag eq "true")

{

print("It is a Palindromen");

}

else

{

print("It is NOT a Palindromen");

}