#!/usr/bin/perl -w
# exer03_13.pl
# Перевод двоичных чисел в десятичные

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

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

# Перевод числа в десятичную систему
while ($Num1 > 1)
{
   $Num2 = $Num1 % 10;
   $Result += $Num2 * 2 ** $Count;
   $Num1 /= 10;
   ++$Count;
}
$Result += 2 ** $Count;
# Выдача результата
print "Your number is $Result\n";