$ip_as_long = unpack("N", pack("C4", split(/\D/, $address, 4)));
   $ip_as_string = join('.', unpack("C4", pack("N", $ip_as_long)));