Мда, вот что значит "a hard day\'s night"(c). Наверное, совсем запарился на работе, раз такие глупые вопросы задаю. :insane: Это всё легко реализуется самим в одну строчку. Например:
my ($a,$number_of_digits) = (23,5);
print \'0\' x ($number_of_digits - $length($a)) . $a
if $number_of_digits > $length($a);
Тему можно и нужно закрывать.