Using domain server:
Name: 8.8.8.8
Address: 8.8.8.8#53
Aliases: 

google.com has address 74.125.113.147

##</code><code>##

if ($found_addr =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
.
.
.

##</code><code>##

 
if ($found_addr =~ m/(\d.*)/) {