my ($ip_address) = ( /inet\s+(\d{1,3}\.\d{1,3}\.d{1,3})/ );