To parse an IP, simply pass it to Socket::inet_aton().. and the majority of your other tests should go through the very reliable Regexp::Common.

Makeshifts last the longest.