my $ip = '192.168.0.1';
(my $ip_norm = $ip) =~ s/(\d+)/sprintf "%03d", $1/ge;

print "$ip | $ip_norm";