my ($ip, $mask, $bcast) = /\binet ([\d.]+)\snetmask ([\d]+)\sbroadcast ([\d.]+)/
            or next;
        print "Interface $interface has the IP Address of $ip\n \tNetmask: $mask\n \tBroadcast $bcast\n";