Is there a limit to you code... say after 8 digits will it stop? Or does it remove the zeroes in the front of the dgits? Update: well to remove the leading zeroes in my code the code has to be changed to a simpler version of its self:

#!/usr/bin/perl

print "Input number: ";
$num = <>;
chomp $num;

$array[0] = $num % 2;
while ($num > 1) {
$num = int $num / 2;
push(@array, $num % 2);
}

print "Binary: ";
foreach(reverse @array) {
print;
}
print "\n";
[download]

this shall not add the leading zeroes to the left of the digits but now it shall not remain to be multiples of 8...