Select Code to Download

use strict;  
use warnings;
...
    }
}

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