#!/usr/bin/perl -w
# exer03_12.pl
# Выяснение палиндромности числа

# Этап инициализации
$Count = 1;

# Этап ввода значений
print "Input your number: ";
chomp ( $Number = <STDIN> );
if ( $Number < 0 )
{
   $Number *= -1;
}
$Num1 = $Number;

# Установление числа разрядов
while ( $Num1 >= 10)
{
   $Num1 /= 10;
   ++$Count;
}

# Зеркальное отражение числа
$Count2 = $Count;
$Num1 = $Number;
$Num2 = 0;

while ($Count2 > 0)
{
   $Num2 *= 10;
   $Num2 += $Num1 % 10;
   $Num1 /= 10;
   -- $Count2;
}

# Установление палиндромности числа
$Result = $Number - $Num2;
# Выдача результата
if ($Result == 0)
{
   print "Your number is palindrom\n";
}
else
{
   print "Your number is NOT palindrom\n";
}