foreach $zone (@zones)
{

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