#!usr/bin/perl use warnings; use strict; my $integer = 873; printf "\t%.2d\n\t%.4d\n\t%.9d\n\n", $integer, $integer, $integer;