use Regexp::Common;

my $IP_MATCH = $RE{net}{IPv4}{dec};

my ($IP) =~ $IP_MATCH;