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' }
}