use strict; use warnings; use vars qw($is_this_an_IP_address); use NetAddr::IP; my $ip = new NetAddr::IP $is_this_an_IP_address; if ($ip) { # This is a valid IP address, or something an IP address can be derived # from } else { # This is not an IP address }