my $twelve_digit_str = sprintf "%03d%03d%03d%03d", split /\./, $ip_address;

##</code><code>##

my $twelve_digit_str = sprintf "%03d" x 4, split /\./, $ip_address;