The functions pack and unpack can be of great help here, if you don't want to do a loop:

my $number = "12345";
my $bin_number = unpack("B32", pack("N", $number));
print "$number in binary is $bin_number\n";
[download]

Use a regex to get rid of leading zeroes.