my ($ip, $bcast, $mask) = /\binet addr:([\d.]+)\s.+:([\d.]+)\s.+:([\d.]+)/