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