use Regexp::Common 'net';

$ip =~ /^$RE{net}{IPv4}\z/ or die;