Not sure what the problem is, but you can simplify dotless_to_ip() significantly ...

sub dotless_to_ip {
  return inet_ntoa( inet_aton( shift ) );
}
[download]

    --k.