use Regexp::Common;

/$RE{net}{IPv4}/ and print "Contains a valid IP address\n";
/$RE{net}{IPv4}{hex}/ and print "Contains a valid IP address in hex\n"
+;
/$RE{net}{IPv4}{oct}{-sep => ':'}/ and print "...";
# Etc.
[download]

Abigail