foreach $zone (@zones)
{

    $lookup = `nslookup $zone $ns1`;
    $lookup =~ /^Address:\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/im;

$ip = defined($1) ? $1 : "No answer";
print $ip;
}

for my $zone (@zones)
{

    my $lookup = `nslookup $zone $ns1`;
    my ($ip) = $lookup =~ /^Address:\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/im;
    print $ip if defined $ip;
}

print (defined $ip ? $ip : "No Answer");

for my $zone (@zones)
{
  my $lookup = `nslookup $zone $ns1`;
  if($lookup =~ /^Address:\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/im)
  {  print $1  }
  else
  { print 'No answer' }
}