open FILE,"config.txt" or die "cannot open file : $!";
while(<FILE>) { 
$ip = ($_ =~ m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/ ) 
print "$ip"; 
# print $_; 
}