if ( ($a,$b,$c,$d) = m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ ) {
      if ( $a < 256 && $b < 256 && $c < 256 && $d < 256 ) {
          return 1;
      }
  }
  return 0;