my $ip = '127.0.0.1';
$ip =~ s/(\d+)/sprintf "%02X",$1/ge;

##</code><code>##

my $ip = '7F.00.00.01';
$ip =~ s/([abcdef\d]+)/hex $1/gie;