open FILE,"config.txt" or die "cannot open file : $!";
$i = 1;
while(<FILE>) {
	chomp ($_);
#	print "===$_"."\n";
	@arr=split /\s+/, $_;
	#print "line is =>$arr[]". "\n\n";
    print "Line $i ->$arr[0] $arr[1]"."\n";
	foreach $line (@arr) {
		#print "My Elements -> $line\n";
	    if ($line =~ (/^addr:(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/)){
	    $ipaddr ="$1.$2.$3.$4\n";
	    print "$ipaddr";
		}
	}
	$i++;

	# print $_;
}