sub match_RE_net_IPv4 {
                my $val = shift;
                no strict 'refs';
                my $re = &RE_net_IPv4(-keep);
                return ($val =~ $re) ? $1 : undef;
            };