an example of how to padd out a string using x

number_padding.pl

#!/usr/bin/perl 
use strict;
use warnings;

my $column_width = 7;

my $number = 15;
my $padded_number = '0' x ($column_width - length($number)) . $number;
print "|$padded_number|\n";