my $new = join '', map { sprintf('%.2d', $_) } split /\./, $ip;