use constant REGEXP_IPADDR   => qr!^((?:(?:25[0-5]|2[0-4]\d|[0-1]??\d{1,2})[.](?:25[0-5]|2[0-4]\d|[0-1]??\d{1,2})[.](?:25[0-5]|2[0-4]\d|[0-1]??\d{1,2})[.](?:25[0-5]|2[0-4]\d|[0-1]??\d{1,2})))$!;
sub valid_ipaddr
{
   my $value = shift;
   return $value =~ REGEXP_IPADDR;
}

sub valid_ipaddr
{
  my $value = shift;
  my @teile = split /\./, $value;
  # zuerst mal prüfen, ob es sich um eine korrekte Adresse handelt
  return(0) if @teile != 4;       # es müssen 4 Teile sein
  foreach (@teile) {              # in jedem Teil
    return if /\D/;               #    dürfen nur Ziffern vorkommen
    return if $_ > 255 or $_ < 0; #    zwischen 0 und 255
  }
  # hier können evtl. noch weitere Prüfungen folgen (127.0.0.1)
  return(1); # o.k.
}
# untested