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

##</code><code>##

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

##</code><code>##

cccadm@ccasec1::perl: ./ipandos.pl
Hello, your operating system is: linux
Interface 1 has the IP Address of 10.241.37.199
        Netmask: 808
        Broadcast: 255.255.255.0

##</code><code>##

eth1      Link encap:Ethernet  HWaddr 00:19:B9:EB:80:8F
          inet addr:10.241.37.199  Bcast:10.241.37.255  Mask:255.255.255.0
          inet6 addr: 3ffe:80c0:22c:225:219:b9ff:feeb:808f/64 Scope:Global
          inet6 addr: fe80::219:b9ff:feeb:808f/64 Scope:Link